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ljlowing addresses» masks and constants are 


related to the hardware on which this program is 
to be executede That hardware is currently def ined 
to be an ISI 736 ftetter quality printers using a 


model 


$8000 
VIA+0 
VIA+1 
VIA+0 
VIA+2 
VIA+t3 
VIAt+4 
VIA+4 


VIA+5 


VIAt& 
VIAt+7 
VIAt+E 
VIA+8 
VIA+9 
VIAt+i11 
VIAt+12 
VIA+13 
VIA+14 
VIAt+15 
$SBFEF 
(60900! 
$40 
$C0 
$40 
$52 

$2 

$CA 


$5000 
$3000 
1 

$FO 

2 
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base address of 6522 "VIA" 
data output register "8" 
data output register "A" 
data tnput register "B" 
data inout register "A" 
data direction control rege "2B" 
data direction control rege "A" 
timer 1 data latche Isbe write 
timer 1 countere Isbs reade clears flag 


timer 1 counters msbsx w causes 11! to Ic xfer 
timer 1 data tatche Isb 

timer 1 data latches msbe w clears flag 

timer 2 data latches iIisbs write 

timer 2 counters Isbe read 


timer 2 counters msb 

auxiliary control register 

peripheral control register 

interrupt flag register 

interrupt enable register 

output data register "A", no handshake 

direction control conste write to VIADDB 
M256)*2564+6000/ 256 6ms timer conste (refe TICK) 

constant selects tle free-run mode 

write to TER to enable Tl interrupt 

write to TER toe disable Tl interrupt 

write to IER to enable orinter interrupt 

write to IER to disable printer interrupt 

initial value for PCR 


» switch group select register 
selected front panel switches 
selects test selector and 4 control switches 
mask for group 1 rotary test switch 
selects more control switches 
mask for DIP switches 5s 6 & 7 
selects rocker switches 
mask for rocker switches 
selects form length thumbwheel switches 
mask for form tength switches 
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HOLDSV ERU 5 HOLD/JENABLE switch code 
SWOIP EQU $3800 "E438" on-card DIP switches 
SWMSKO EQU 0 mask for E48 switches 
LNGMSK EQU SFB 5 bits select a "language" 
MODLMK EQU $7 3 bits specify the "model" 
STATUS E@QU $28C0 printer and Top Board status 
TBSMSK EQU $CO Top Board "command" mask 
LEDBUS EQU $4000 Front panel LEDs and beeper 
BEEPMK EQU $80 beeper bit 
ALRMSK ESQU $38C alarm complementing mask 
LEDMSK EQU $7F LEO complementine mask 
LED3 EQU $40 LED 3 bit 
LED2 EQU $20 LED 2 bit 
LED1 EQU $10 LED 1 bit 
LEDHLD EQU 4 HOLD indicator LED 
LEDCHK EQU 2 CHECK indicator LED 
LEBDRDY EQU 1 READY incicator LED 
FRGMSK EQU $40 CC FIRQ mask bit 
FIRQFL EQU $6000 FIRQ (top board) flags clear on write 

also generates int ack to TeBe 

TBREG EQU $7000 Top Board communication register (write only) 
TBRSTM EQU 1 Top board RESET bit mask 
TBRSTB EQU 0 Too board RESET bit bit 
TBCISM EQU 2 Top board DISABLE bit mask 
TBDISB ERQU Ve Top board DISABLE bit bit 
TBBBFM EQU 8 Toop board BUFFER SIZE indicator bit mask 
TBBBFRB EQU 8 Top board BUFFER SIZE indicator bit bit 
* SOFTWARE DETERMINED EQUATES 
MXTIMR EOU a) up to 8 timers allowed 
TRUE EQU- ae! poolean “TRUE” 
FALSE. EQU 0 boolean "FALSE" 
ECBIT EQU 16 I8M printer status "equipment check” bit 
IRBIT EQU 8 uo " us "jnterveantion requirad"” bit 
OCBIT EQ 32 " : au "order complete" bit 
SDABIT EQU 4, " 4 no -—C<C Sense data available” bit 
ABGCCD EGU 1 I8M cammand definition -—- abort 
SSACCD  EQU 2 n 7 " -- Set status avail 
PRICOCD EQU 3 sid " -- Print 
LPSCOD EQU 4 " " | -- Load Proge Symbols 
TICK EQU 6 clock interval in ms (see: VIATCN above) 
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ake wte alls ule aly rhe ats alo ade we ate ake ale who me 4 = ate ate ate whe ole we whe abe als ade alo ate whe ate ale ate ate ale als ate <Bo wy alle ats ale <Be ats ade aSo alle whe als we ade alo ate we alle whe ale ate als ats alle ale ate ate ade ale ale alle we whe aly ale ale ale alle alle ale whe alle 


yr Heh age MEm w gh Mo ge HA ge Hg™ mye Kgs oye 74" &, 


ate alo aly whe ule ale ule ale ale ate ule xls ale ale ate ales ale ale ale ole ade ale ale ale ale whe whe ale nbs abe alle ate ate ale ale als ate ats alle abe a8e ate ale ale alle ale ale ale wile ale whe ale ale alle nly ofp wile ale ate ale ale ato wllo we abe alle aly slo alle whe als ale ale ate ale alo alle ale alle 
Hy Mgt Hgh MS Syr 2 ye gh gh wegh Hy gh Hgh yd Sgd age Aye FAS Syd HQd Gr MAD SER Syd Hye OAR HYD Cyd HQh Gh OGd OAS FGe AS FyO OAR SGN PgR Tye HGR HD Oge Qe YN 


Set eS Sue Me™ Kae Ma™ Mey Mam Mq™ *E™ We Ma “a Se™ Mee ME MEP Me™ Aye Me™ Hae Mem MOS e% Hm a™ Me™ OES Ma Pum SOS Has Ma™ Mas Me™ <a% Me 


Gr Pgh yh Pgh Oye Oye Hye oye 


<Be wig abs Se ale ato ale ate ate ate whe ade ale wile ule ale 


nde whe 


gh Sgr HG® Or Myr 2h 7 I gh Hye Mgr Ogh Sgr Hgr Mgr ye ge Myr Fgh Mgr LF MG Hgh CQr “Er > 


Sgr SEN gm HM y* Oy Mg? ow ge 


ale ale ale aly whe alls whe aSe whe alle ate ale xfe ale af aly alle ale who whe a8e whe ote ale ole aly alle ale aby als ols ate whe abe whe ale alo cle 


“= ad bd bat bad ~~ ct bel > “ ge “_* “~~ " ~~ ad taal ~~ eget Ee ad 


we ale is 


Ae ad +y* Se ~~~ bee tal “~~ -* — Ce ae ead - bt > "* ? “s* 


wie alo alle whe ate ole ate ale He «te aly ale aly whe aly ale 


202 
2903 


at 
*,* 


TITLeFILNAM 


MACRE 
PAGE 


FILE 


204 
205 
206 
207 


20: 


(FILNAM) 


TITL 


SUBTTL 
NLIST 


DK32£L140e2)FILNAM 


5 


INCLUD 
SPACE 
ENDM 


’ 
4 


299 
210 


MACROS » <SUPERMACS eSRCD 


FILE 


212+ 


SUPERVISOR 
MACROS 


CR6809/11 version 10034214 


(SUPERMACS.SRC) 


214A 
218A 
219A 
220A 
221A 
222A 
223A 
224A 
225A 
22bA 
2338 
2344 
235A 
236A 
237A 
238A 
239A 
240A 
241A 
242A 
243A 
244A 
245A 
246A 
2474 
243A 
2494 
250A 
251A 
252A 
253A 
254A 
255" 
256A 
257A 
258A 
259A 
280A 
261A 
2O2A 
2638 
2O4A 
265A 
266A 
267A 
268A 
269A 


270A 


271A 
Z2tZ2aA 
273A 
274A 


SUPERVISR». 736 


4 
%" 


AY sé te 
st St fe 


eo TOXANR 


oMSK 


oMSK 


e ASK 
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SUBTTL 


102493223 


MACROS 


Page 3 


(SUPERMATS. SRC) 


THE FOLOWING ARE MACRO DEFINITIONS FOR USE BY THE SUPERVISOR 


MACRO 
TST 
ENDM 


MACRO 
SET 
IFNB 
IRP 
IF ICN 
SET 
ENDIF 
IFICN 
SET 
ENDIF 
If TCN 
SET 
ENDIF 
ENDR 
ENDIF 
ENDM 


MACRO 
NLIST 


eIOXAR 


Boe 
ORCC 
ENDM 


CLEAR CLOCK FLAG 


Use iss 
CCF 


T1IiCeL 


INTERRUPT OFF 


INTERRUPT ON 


Use i353 
IOF 
ICN 


x ARGS 

0 

C*¥ARGS>D 
*¥ARG yg C*ARGSD 
CAR GD 9 KBD 
oMSK!+$50 


C*ARGD> 9 <1 
oMSKI4+910 


<ARG>» <F> 
oMSKI4540 


H#aMSK 


(6522 VIA) 


clears the clock flag 


Feleb> for FIROQs IRGe BOTH 
<FeIe38> for FIRG@s, IRQ, BOTH 
8 is equivalent to Fal 


initial value of mask variable 
de no more if no arguments 


check for a "B" 
Fel set 


check 
I set 


check 
F set 


for an "I" 


for an "FF" 


form required constant 


turn *ARGS interrupts off 


SUPERVISOR 
MACROS 


CR6809/11 verston 10234e14 


(SUPERMACS eSRC) 


275A 
276A 
2i7A 
278A 
279A 
280A 
281A 
282A 
2E38 
342A 


344+ 


SUPERVISR. 736 


ION 
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MACRO ZARGS 

NLIST 

elDXAR <*ARGS> form required constant 
LIST : 

ANCCC #INeMSK turn *ARGS interupts on 
ENDM 

INCLUD CK3:2:£14092]CALLeMAC 


*CALL® 


FILE 


MACRO DEFINED 


BUFFER «<PRICRUBUF.SRC> 


SUPERVISOR CRS809/11 version 10234214 11-May-83 10:49:23 Page 4 
BUFFER (PRICRUBUFeSRC ) SUPERVISR.736 


346A SUBTTL BUFFER © (PRICRUBUF eSRO) 
350A 


‘ = ale abe a3s whe ate ate ate we whe ate ole ato ate ale ate ate ate als ale ats abe als afe alls ale abe ato alle ate alle ale als abe ale ale oly ale ats ate ate ats ale ate of alle ate als als alle abe ale ale aly a? et, a! ale aly ale ale ate a Se ale ate ate wie ute ato alle ate ale ale ate ote 
ng ; ate whe ade ale ats 2! alle By ate ade abe ale ate alle abe alle a8e ay ale als ale als alle wile ale afc ate ute wile ats whe ate ate ahs Se ule ale ale ale alle ale abs ate alle ads ats ale ate ale alle ate ale aly ate ale ale als «i! 96 ws ade ale ate ats we ate le sate abe ale whe whe abe aly ole ate ate 
i “/ a ta gt > oe bad’ ted we iat ~~ coat ad —~ ba bad fd te o> Oe al ‘ed ~~ “4 at ta > > ~ at bl Or Og ox wy so igh — vy ~~“; yt Myr My Or Hg ot ad el oe al Sat ad Mgt Sgt yt MG Oye “gt og* bd ted “3% Ayr Fg® “gE Ke “ Cd al ~~ ?o Cf) ye ye ~ eg" Hg™ Hg™ %g* ™ on oad bal tet nelle bee 


353A * 

354A * | 

355A % the following defines the Printer /7 Control Unit communication region 
356A % aka the print buffer | 

3257TA % 

358A * it is tn 3 parts: the printer output area (information from the 
359A * printer to the control unit)s the control unit output area 
360A * (information to the printer from the control unit?s and 
361A * the print buffer proper (which contains the actual data to 
262A * be printed or operated onje 

363A % 


ade ate why ate ats abe ats ate ate 0! whe ate ote fe ate aly ale als ato ate ale at, ale ate ale whe whe ale alle ale ofe ~' jo ate Be ate ate ake ale ate whe ule ale whe ln ats ate ale als whe ale whe whe ake ate ate ate wSp ale he ale abe ale abe ate ale ale a! lo ale whe ale ale ale ate 
F ne nBe alle ale alle ale whe ale whe whe ale ale ale ale whe ule ate ule alo whe ole ate ale ale ale ate alle abe alo ale ale ate alo ale ale ale Me ale ah ale o' wl. ate Wo a! ~ « Bo ate a8y abe alle nile aly ate af, mate ate ate ate abe ate ate ale ate aly ato ale ale ale whe als ote ate alle 
> Gr PG SGQd yh gh Fgh O4e AEN QD By Pgh gh Gh gh HGR Fgh OGD OG FER Hg yD SYR HQd SER HY OGd Hyd HGh Myr Ar OL OQ 95% ley HS ON PQQ FG OG PQr ar 2m @, oP Pgh Or OS a Set gh Gh GN Ye ye Oe gh yt Oe! Pgh Mgt gh MH gh FAS gh Og gh Sys ge ye Ae ge Mgt OBS Ags 


366A * 
=N00D0 Z67A RSECT PRTBUF 
BORK 
369A INTERN PSTATS 
370A INTERN PSWSTA 
371A INTERN PKEYIN 
372A INTERN PSENSE 
3734 INTERN PIDENT 
374A INTERN PMODE 
375A INTERN PMSA 
316A INTERN PMSL 
37TA INTERN PORDER 
378A INTERN PPARS 
3794 INTERN PMPP 
330A INTERN PTSTM 
3314 INTERN PRBUFR 
382A INTERN PEACT 
BBSA INTERN PEAB 
384A * 
285A ste afc aig sie af tik ole oie ate she af alk ate she ak afc aie ale ake ote ale ote aks she atk sic afc oie ate 2h of is afc oie ate of obs ois oie 2K ofc 2k ke ois ahs ois oye SE SK SHS SNK SUK SIS DK OK OK SEE Be SE DES SS BS She SK OS SIS BIS SK OS Sik She Sis Sys Bye SIC SES SNS BIE oie Ox 
386A * 
0000" =0001 387A PSTATS RMB 
0001" =0001 3834 PSWSTA RMB 
0002" =0001— 389A PKEYIN RMB 
$003" =0001 390A PSENSE RMB 
=0007 — | 3914 RMB 
DOOR" =9005 392A PIDENT RMB 
393A %* 
0010" =0002 3944 PMODE RMB 
OG12Z2"  =0002 | 395A PMSA RMB 
9014*% =0002 396A PMSL RMB 
0016" =0001 397A ORDER RMB 
Ool7® =0001 398A PPARS RMB. 
9018" =0001 399A PMPP RMB 
=0031 | 400A RMB 


orinter status byte (sec 2e201) 

Swwitch statusSe 6/8% s/de etce (sec 2ea2e2) 
Key input coder PAs (sec 2e243) 

sense data codes Cane ORe etce (sec 20204) 
(reserved) 

printer confige code (sec 20245) 


0) te ee 


mode bytes (sec 2e3e1) 

message starting address (sec 20302) 
message length (sec 26342) 

order (sec 22323) 

order parameters (sec 240343) 

maximum presentation position {sec 20325) 
9 (reserved) 


fs pd pet pe RDO 


SUPERVISOR 


SUFFER 


OO4A" 


0050* 


1010° 


1050* 


CR6809/11 version 104344614 


C(PRICRUBUF.SEC ) 


=0004 


=0002 
=OFBO 


=Q9010 
=0008 


=O0038 
=QOF BO 


4OLA 
402A 
403A 
4O4A 
405A 
4O6A 
4O7A 
4OB8A 
409A 
410A 
411A 


SUPERVISRe 736 


PTSTM 


whe 
~~ 


P3UFR 


ate 
“7 


wai 


PEACT 
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RMB 4 


RMB 2 
RM3 4016 


RMB 16 
RMB 8 
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test message (sec let4e4 RESET) 


(reserved) 
message buffer 


(reserved-EA8 printer output counterpart) 
extended attribute correlation table (sec 20344) 


(reserved) 
extended attribute buffer 


le ats we abe ale ale ale ally ate ade «te whe whe aly whe wie ale aly ale ule wle whe ole alle ate ale «8s ale ale als abo ale ate ale wty fs WV able Be ule ats Se abe of ate whe ale abe whe ale whe ale abe whe ahs ale whe ale abe alo alle ale ae als alle ale als ate we ade ate alle ate ate ot a3, 
ele ate whe alle ats ale ale als ale ale ale afte ale ale ale ale ale ale ale whe ale ate ally ale ale ale ale abe abs ale fe ale we ale ato ale alls ale ale ale ale alle ale alle alle ale ally allo ally ale als ale ale ale ate alo als alle atts alls whe ale alle ale ate ale ats wile ale «i fy whe we whe ate ate ate abe aly abe 


419+ FILE VECTURs <SUPERVECe*SRCD 


SUPERVISOR 
VECTOR 


0000* 
9002°* 
0004° 
0006* 
Q0008* 
OOBA* 
O00C* 
0008 


CRS6809/11 version 104344614 


(SUPERVECeSRC) SUPERVISR. 136 


=0000 


onoo* 
O5A3° 
OSA8° 
O0281° 
023° 
0321' 
D5A8° 
NOOO" 


421A 
425A 
426A 
427A 
428A 
429A 
430A 
64318 
432A 
433A 
434A 
435A 
‘436A 
437A 
43BA 
439A 
4494 
4414 
4424 


4444 


SUBTTL 


ate ate ale ale ats ale 

~ a eS 
al. 
m 


at, 
=“ 
abe ake ale abs ade aby a8o alle xt ale alls abe oJ 
- 
SECT 
whe : 
Pet 


VECTCR  FDB 
FDB 
FDB 
FD3 
FDB 
FDB 
FD3 
FDS 


FILE 


VECTOR 


eVEC. 


CSTART 
ERROR 
ERROR 
TBINT 
TRQINT 
SFTINT 
ERROR 
CSTART 
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(SUPERVEC eSRC) 


%, at, als ae aww we ate ale ale ale ate whe ad 
~* *,* cat bal Dac’ ad op “_* bd tl ad ‘ol tad be oe ad oe at’ es cae ad 


mY) 
iy 
° 
4 
4 
4 
ve 
»% 
7 
ve 
y 
oN 
Y 


a DEFINE THE INTERRUPT VECTOR ACORESSES AT FFFO 


le ate ate ale als aly ao aly nbo afs ale als ste els ale ats whe ate abe ate abe ale ale ale alle ale ale ate ate ats ale ale alle als ale ale nto alls ate ale 
ge yh Fgh gh gs Hye Hym gr Hgh Gr Hyd Syd gh Ge Gd Ee gh Sym HAN Hye gh OAS Bh OLN FEN Oye gh GR GS Hye OAS Aye HGS Oye OG Oye Ogh Oye Qe 


reserved vector (debugging coldstart pointer) 
SWI3 2« «© » © » (may be alternately defined) 
SwiI2. ° ° (may be alternately defined) 
FIRQ 3 

IRQ oe es e 

Swi 2 *e© e® @ (disable request) 

NM <o w@ te: Se ws | 

reset vector (cold start) 


COLDSTARTs<SUPERINIT* 136> 


SUPERVISOR 
COLOSTART 


iT 
ae) 
© 


ta 


C26809/11 version 1034014 
({SUPERINITe 736) 


446A 
450A 
451A 
452A 
453A 
454A 
455A 
456A 
4574 
458A 
4594 
460A 
461A 
462A 
463A 
464A 
4554 
4664 
4OTA 
468A 
469A 
470A 
471A 
472A 
473A 
474A 
475A 
416A 
ATTA 
473A 
4794 
480A 
481A 
432A 
4834 
4B4A 
485A 
4B6A 
487A 
4BBA 
459A 
490A 
4914 
492A 
493A 
494A 
4954 
496A 
497A 
49BA 
499A 
500A 
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SUPERVISRe 736 


SUBTTL COLDSTART (SUPERINIT* 736) 


ate 


Pe 
ate ale ay ole ale alle ot, ats whe alo aly ale Be alle abs ale ale she «Se 3) le ate aly ahs alte Se ade abo whe ale whe ate whe ake ale ots ule ale ate abe alin alle ale afe ale ate alle ale whe ale abs ofe athe ae ale ale ale als ale ate ale ote alle whe ate ale ads ale ale abe aly ale als wle ale ale alle whe ato 

< gh age Hg% age ge —~ _* Sr HM Sgr Hgh Sg Hy® Sys Syr yr Hg™ Sys Her Mgr mm Mgr <g* Mg Mgt Age Myr Gr Fy> ye “gq Pgh Og® Sgr SG Ogre Pye Or “ge My Hg 2 gX Sgt Sym Sr Hyg Hg Mg® Sgr age Hyd Gyr Sys Sgr Sgr Hyt Myr or Hye ogm Hge agen Myr Gr ,* St Ce bed bad bod og “ Gr gm ge Sym ge gr Oy yh 

ale abe ate ate uly ole ate ale ale ale ate ade ale whe ale ube ale wle alle aly alle ole alle a! Feo ale whe ale ate ale ale ale ale ny abe ate abs abe abe als ofe ate alle abe ale ale «ty s& ale afte alle aly ate ate 4 ate abe abs ate ule ate ate alo we ale aly ale ats ate ale alle ale ale ate alle ale ale abe ale whe 

- Phd OGh GS Mg eS gh gh Gh Ge Gh ge GS MG Gh Gy Fgh He Ge yh GR ge Hye Gr Td Kgh H 4d VyD Sgr Tyr Syd Hye Gr KYW Hyd Gye Hyd Hyd Sd Hy® Hye MGs gd Myr MGR Ge Od Sgr HGR Sym Sgr Kym Syd Hgd Ogd Hyd Hye gd S gd Sgr HGe Hye yr SGd Mgr M4r Dyh Mgr gd Mgr yr H Gr Hye AD SGD SER Ar O_R H_r 

al, 

=~ 

abo F j 

= C OLBS TART salad "G R E Y 8B Oo xX" (ISI 1261) 

ed 

— 


a Routine takes care of the required tnitial set-up 


* after Power On 


tc Routine inctudes (or calls) code to do the followings 
* le Memory test 
% Ze Initial read of switches 


oe 3 
* 2 
te 

ae 4 eo 
we 

=e be 


Set up of printer 
Set up of clock 
Inite of print module 


x &e Inite of "SLU" 

* Te Inite of Enable/Disable control 
* Be Inite of System Stack 

se Ge a) 


whe Be whe ale ale aBe a8y alte a8. ate eM oO aOe whe ae ats ae ate ate se Se Po ate se whe oe we ate ate wie ale whe ale ate We bed whe Be ae wRe abe abe ate ste s* ed ss mde Me ale ate whe ate 
=. 


we ate ate 3. 
Myr Pgh Gh Hye Sgt Mgh SYS HGR HGR Gh Oe Sgr BGR 2Gh OED OR SGA OG Se HAS BR Ar OGd Fn ar Fgh Aye gh Ogh Mgr 8 gh O48 oye Or Ogre FAN AAS OF ple ste ole tie she 3% she the wPe 28e whe ye ny a8 why 


whe ale whe whe a8. ale ate 
yh gh Mgt Fgh gh Qh Mgt Mgt GN gh Kt ORR age FS Oe BR ye 4 Per AP Mr ar Oe Pg aes = “ 4 “" pind ee ae ete 4 +" 


ats ate ote ato ate wile alle w8e ats ate als x30 ate pte whe xe ste ste ste she whe she ate 


a ute abe alo hy we a8y ake ah we * Nd we whe we ude whe ate w8p whe ote aby abe ads whe ale ale atts abe ats ale wie alle why alle nBy ale ale ato aly alle ate ws We ake ale ato abe ate ale ato alle ute abe 


whe ste ale 
og Pi mer oye -Fy* ge 4 "_> “ee + gh Sgr My® Mgr Cyt Hye Sgr oye “gr a Sgr HM Qr HGr Kg® Hyr Agd Sgr ge gd gh Mgr yr gM Pyrt Age Sgr ge Sy oge Sym Hye ah gt ogy mgt ge 


ate 
bad al 


eS Initialize Equates 


=e 


MEMBAS 
MEMLEN 


ate 
“ee 


eR AMBs RAM 


eRAMEe- 


beginning of stack/variable 
length of RAM 


EQU 


EQU eRAMBe t+] 


4, 48 °, Sa at ) te a4, 3 te ate wf a’. Fe ad, te at ate ate So abs aI, ty aS, 8, 3, Se ade wt. ate ate whe aby ale ate ole ade alo alle ale ate ale whe ale aly ate abs ate whe ube ato abe 
pipe bt se *: ale alle ale ate ate abs alls wto ale ate ate ale we ake ae ate abe ate ats oh aati whe als abe w¥e ale why ake Be eee ee ne oe on oe oe mid S ge Dye Aye Sgt ge Mgt aye et My gt Ee AS gs HES Ge eS Ee Ee ge AAS MES EF 


Ded ba whe ats ate whe ade ule whe ale ate 
Dee Sak ye Syh AyS BS TAS HyS SS Aye FS HT AAS aS Sys Bye AS yh AAS My TE Sys Sh a yh FE Sgt MS yh yh Sak aR FS GS TE AS Qh Sys ys Fe SR Sys oak ys Hes ee Mee ie 


Mg Or ye My ON 


le ate ate ate nts ade ate xBe 4! 


fy ale ale wily os Sed ate m4 ate aBe aby nile biked ied ate whe ied ate ate alo ale we ale 


ate ate ule ale ale ol wd ate at, =! ~ 


Me ale ate ay nts wie obs ale ate we ale ale ate ate ate ale we ale ate alle ate ale ale ale ate ats abe ale abs walle ale ate ats wlo abe ule abe abe als ale whe 
Qh Ge GR SH y® Gh IGE Gh Gh gh HGR BG AGS Ge Ge ye OG AAS Ge OGh Ge Ogn Oe : 


gr Gr Pyr Agr Hg® Ser Sgr My Mgr KG™ yr Hy gr Mgr Hgh =g® Hg® Sg? Sg Hg Mgr My™ Mgr “g* “" “ 


a® 


a 


INTERN CSTART 


whe 
> 


RSECT SUPER this is part of supervisor 


ot 
“+ 


whe 
at ted 


CSTART NOP 


LDS #STKTOP set up the stack 


7s Memory tests for: 


O-TFF + 
O-FFF » 
O-T7FF + 
O-7FF >» 


Scratch RAM 
Scratch RAM 


LOOO-1LT7FF, 
SO0-FFFe L1OCO-17FF+» 


ouffer 
buffer 
w/ EAE 
w/JEAE 


x 2k 
x 4k 
7 2k 
x 4k 


Scratch RAM 


1B8C0O-1FFFF.e Scratch RAM 


a front panel LEDs initialize to indicators off and display showing G90 


= begin RAM memory check 


LOX HMEMBAS: set base address of stack/variable RAM 


SUPERVISOR 
COLDSTART 


9008° 
OOOB* 
O00D* 
OOOF* 
0013° 
0016' 


090135° 
0018" 
OO1E® 
0020 
0022° 
0024%° 
0026" 
0028% 
OO2ZA* 
CO2C* 
OOZES 
003908 
9032° 
0034' 
B036' 
003 3° 
O03a% 
003C?* 
OG3E% 
004i" 


0043° 
0945? 
0049* 
004C?* 
DO4eE* 
0O50' 


052° 
0055" 


0058? 
9059* 


(SUPERINIT. 736) 


CC 
Al 
60 


1026 0087 


BC 
25 


BE 
BD 
BS 


a 
mm Ph 


CRESO09/11 version 10634e14 


0000 
34 
B39 


2800 
F3 


2000 
OOFF 


9000°* 
005. ° 
2800 


44 


501A 
502A 
503A 
504A 
505A 
SOG6A 
507A 
SOBA 
509A 
516A 
511A 
512A 
513A 
514A 
515A 
516A 
SIA 
518A 
519A 
S2Z20A 
521A 
5224 
523A 
5244 
525A 
526A 
S274 
528A 
5294 
530A 
S31A 
532A 
533A 
534A 
535A 
536A 
537A 
533A 
539A 
540A 
541A 
S428 
543A 
544A 
545A 
545A 


547A - 
|~—6dDMABA 


S49A 


5S SDA 


551A 
552A 


SUPERVISRs 736 


1% 


wt 
“ 


2$ 


2 
“¢ 


% 


ale 
at tl 


MEMCHK 


103249323 
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to clear and test memory 

clear 

test and advance pointer 

branch if it did not read back zero 
test for done with clear 


is cell still zero? 


store all ones 
check it 


try half ones 

check it 

try other half ones 
check it 


re-zero cel! 
check it and pcint to next cell 


done? 


11-May-83 

LDD #O 

STA 2X 

TST 9 X+ 

LBNE MEMERR 

CMP X #MEMBAS+MEMLEN 
BLO 1$ 

wiped: now try other data 
LDX #MEMBAS 

LOD #SFF 

TST 9X 

BNE MEMERR 

STB aX 

CMPB 9 X 

BNE MEMERR 

LDS #$55 

ST8 aX 

CMPB 9X 

BNE MEMERR 

LD8 #SAA 

STB 2X 

CMP 2X 

BNE MEMERR 

STA 9X 

CMPA oX+ 

BNE MEMERR 

CMP X AMEMBAS+MEMLEN 
BLO 24 


Stack and variable RAM 
Stack pocinter can now be Ioaded 


‘LDX 


JSR 
OA 
ANDA 
CMPA 

BLO 


LDX 
JSR. 


#PSTATS 
MEMCHK 
SwDIP 
#MODLMK 
#3 

1% 


#$80C 
MEMCHK 


is checked and zeroed 


test base print buffer 
check buffer size 


modeits 1&2 have 2k buffers 


big buffers check it 


if there is EAB (or away to determine that there might be one) 
insert MEMCHKs for EAB here 


NOP 
BRA 


routine MEMCHK.e 


TFR 


SYINIT 


Xe 


go initialize the program 


enter with base address of 800 word test block 


Save base address 


in 


x 


SUPERVISOR 
COLDSTART 


co05D* 
O0061"° 
0064° 
0065* 
O067* 
0069* 
0068B* 
G06D* 


QO6F* 
oo71° 
0073° 
oo75* 
oo77* 
0079! 
—oo7eB 
007d 
OOTF* 
00s. 


0083" 


9085° 
NoOB7" 
0039" 
9088" 
o080° 
OOBF® 
0091" 
0093" 
gogss 
e097" 
0099 


DOA’ 
OOD9T * 


DOOF* 
Do0A2* 
OOAS' 


OOABS 


DGABS 


DOAE? 


31 39 0800 


LOAF E3 


—4F 


AT 
6D 
26 
AC 
25 


1F 
6D 
26 
D6 
of 
El 
26 
C6 
Ef 
El 
26 
Co 
ET? 
El 
26 
Ad 
Al 
26 
AC 
25 
32 
33 


86 
T 


we ts 
ju © 


BD 


BD 


1c 


84 
80 
2F 
E4 
F6 


31 
84 
25 
FE 
84 
84 
LD 
55 
34 
84 
15 
AA 
B4 
B4 
OD 
34 
BO 
07 
E4 
DA 
62 


03 
O5A8" 


O3A4D* 
0582" 
0543° 


O00 1% 


O002%. 


cr 


553A 
554A 
5554 
556A 
557A 
558A 
559A 
560A 
561A 
562A 
563A 
554A 
565A 
566A 
567A 
568A 
569A 
570A 
S71A 
S72A 
573A 
ST4A 
575A 
ST76A 
S77A 
57BA 
ST9A 
580A 
581A 
582A 
583A 
584A 
5354 
586A 
587A 
588A 
589A 
590A 
591A 
592A 
593A 
594A 
595A 
596A 


SOTAtT 


6028 
6963 
626A+ 
63185 
6358 
655A+ 
6826 


1 


2 


ale 


ha baal 


ate 
“~~ 
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$ 


MEMERR 
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LEAY 
STY 
CLRA 
STA 
TST 
BNE 
CMPX 
BLO 


TFR 
TST 
BNE 
LD8 
$T2 
CMPB 
BNE 
LOB 
STB 
CMP3 
BNE 
LDS 
ST8 
CMPS 
BNE 
STA 
CMPA 
BNE 
CMPX 
BLO 
LEAS 
RTS 


$800 0X 
2--S 


9X 

9X+ 
MEMERR 
25 

1$ 


UeX 

2X 
MEMERR 
$FF 

9X 

es 
MEMERR 
#$55 

0 X 

9X 
MEMERR 
XSAA 

o X 

2X 
MEMERR 
9 X 

okt 
MEMERR 
95 

2% 

2958 
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calculate end of biock (+1) and save in stack 
first zero memory bank 

done? 

reload X 


is cell still zero? 


store all ones and check 


try constant 55 


store & cneck wi/A&A 


re-zero 
check it & point tc next 


cneck for done 


give back stack space 


remory error on power_up tests. 


LDA 
JMP 


whe ate ale ale alle ale ule ate ale «) 
ge Mgt Aye > 


’a* Sa tod Pye 


He ate nde wHe a! 
> Me™ Pye Mgt Og Hye 


#3 


ERROR 


te whe ate abe whe 
~~ 


le ate abe ate «' « Be ate ube af “ale 2. ante le 


~~ ed 


LED3 Cin addition to check) 


initialize vartous sections 


JSR 
JSR 
JSR 
CALL 
EXTERN 
JSR 
CALL 


EXTERN 


JSR 
ION 
ANOCC 


SWSET 
LEDINI 
CLKINI 
SSAPOR 
SSAPODR 
SSAPOR 
PSPOR 
PSPOR 
PSPOR 
<I> 


HINeMSK 


Switch setup , 

initialize LED display 

set up clock and timers 

initialize “secondary logical unit" 


(S40 TC SSAPOR) | 
initialize programmed symbols 


(G0 TG PSPCR) | 
device POR requires timers active 
turn I interupts on 


SUPERVISOR, 


COLDSTART 


N0B0* 


0053’ 
0o0g85* 
00688" 
NOBBS 


O0BcE*% 
OOCO* 
voCc2* 


OOC5* 
cocs* 
O0Cc9" 
NOCbB* 


0OCcc® 
OOCE* 
00D1° 
vOD4* 
O007* 


OoDS* 
OODC® 
ODODE" 
JOEO® 
QOE2* 
DOE4* 
O96" 


009° 


QCEC* 


BD 


1A 
7F 
TF 
BD 


86 
Cé& 
GD 


od 


4F 
34 
33 


B6 
aT 
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0003% 


10 

0023" 
OOOF* 
Oocc® 


04 
=F 
O55F° 


QOOED* 


12 


FF 
00968 
OOLO0* 
0003" 
O1 


OO1LA® 
O7 
03 
02 
Ot 
98 
0OCD* 


7000 
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SUPERVISRe 735 
683A+ CALL PRIPOR initialize orint module 
6888 EXTERN PRIPOR 
692B JSR PRIPOR S50 TO PRIPOR) 
T12A+ IDF <I> | 
7398 ORCC fe MSK turn I interrupts off 
T40A CLR SWFLAG flags may have been set in PRIPCR 
T4184 CLR HLDREQ 
T1424 JSR PRGINYI set up "goodies" in the program 
T43A 0% 
T44A LDA #4 set "READY" LED 
145A LDB #TRUEs : 
146A JSR LEDSET 
747A | 
T4B8A LDX 4#BEGIN set up to go--address | 
T49A CLARA -~-both interrupts will be enabled 
150A PSHS AaX 
TO1A RTI "return™ to BEGIN 
T52A 5 
153A Be ok sis ale oe he ae ake sfc aks afk ofc afk ake afk fs aie ok ake ofc sk ate afc ote alg ote afc 8s of ots of ots oft atk ate af oft ats afk af afk ots ats of ofs afk oft af afk afk ats ate ols afk ate ak afk afe ats afe afc ofe afx afk oe afk ots of als atk ofc ats afk oe ots of ot fe ok 
754A % 
T55A superviser variable initialize 
156A * 
T57A PRGINTI LDA #TRUE. set system to "enabled" 
TS3A STA ENAFLG 
T59A CLR DISINH clear “disabling” semipnore 
T60A CLR DEVT OF Clear device (fault) timeout flag 7 
T61A LDB #(INCTBBBFB)P.°0TBSS8FM)VL4C INC TBRSTB)22(TBRSTM)) set bits 
T7624 * eee for no reset & no big buffer 
T6534 LDA SWBYTO set up buffer size in Te3*e controi byte 
T54A ANDA HMDDLMK mask "A" toe model bits 
T55A CMPA 4: 3 
16648 BLO 1% 
T4574 EORB #T&2BBRFB big buffers set bit to indicate 
768A 13 TFR BoA copy image to A 
TOGA STD TBRIMG store result value in T8 Reg image 
TT0A 
TT1A STA TBREG enadle TeBe 
TI2A ¥ 
TI3A RTS 
L744 % 
T7T5A FISK BE TE FR SE 2K IS SE SEE ES FR SE OE AE OE EO DAS HIS SG TS TK DIS SS SES SS BK O5k SYS SYS Ts SS AS TS SE Ys SIS SN SES SEs SIs Se SHS Ye DES Ys Bs Sys TES THE SYS hs SES She Tht She TYR SYS TS IS SK ONS TS She SIS Ss OK OI SIS Ds SH SHS BNE is ES Os 
776A Be OE is aoe ees Sic ek oem Sem meee ree em eee me ne ee ee mee eee cee ee ee ee ie oem ace eee mie ae ct eer eg hie aie oce cies ore eee Se ek Sas oe ois ee oe See eee adie a aoe ee oe on oe oe crac ek ee oe oe ee oe 
TT3+ FILE aMAINe »<SUPERMAINSSRTD 


SUPERVISOR 
oMAINe 


00900* 
Noo1* 
0002 
0003° 
0004" 
0006" 
oo00T* 
0008" 
DOQCA® 
O00B* 
000C* 
0000" 


OOED" 
OOEF* 
00F2° 
OOF3" 
ONF4" 
OOF6t 


ODOFR* 
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CSUPERMAINSSRC) 


=0000 


=0001 
=0001 
=0091 
=0001 
=9002 
=0001 
=0001 
=0002 
=9001 
=0001 
=0001 
=0002 


B86 O1 

8& OOFB’ 
ar 

5D 

26 FC 

20 92 


0000 


T8084 
184A 
T8B5A 
TB6A 
TBTA 
TBeA 
TESA 
TIOA 
TILA 
T92A 
T93A 
T94A 
T95A 
196A 
T9OTA 
198A 
T9I9OA 
200A 
BOLA 
BOZA 
BO3A 
BO4A 
BOSSA 
BOGA 
SO7A 
BOBA 
BOJA 
#1OA 
BIilA 
B1iZA 
B13A 
Bi4aA 
GS15A 
B1G6A 
SI17A 
Bisa 
8194 
B20A 
B21A 
B22ZA 
823A 
B24A 
825A 
B26A 
B27A 
B2BA 
829A 
B30A 
831A 
832A 


833A. 


B34A 


SUBTTL «sMAINe CSUPERMAINSSRC) 


¢ é. 
se ott 
yA 


we ste ae she ate ate afe ate oe ate she ate ste aft of ats Pe ak ote ole ate ale ate ote oft als te ate ak ok ats ok ofe ote oft ale ofs ote ofe kc ots ate af ats ote afk of ote atk ate ate ate otk af aie ofs ots ots fe ate fe ate ofc ats ofe ots ots ak of ok nk ote akc ae oe ots ote of 
he Se See Se oie See ee ee Se Sie Bee Se See SS Se ee emg tae ae See ee Sree Pe ae ae HP ae ae TAR OE Se apy Sek Bae See UR rae Bae Em age ae ae ee Dee ae Dee Sut eee ews ee Sak ee eqs nue cue Spe ae pe ge ete Sue ye ae Ope OSE ae Sys ae Oe Oe 
4 
EXTERN HIGFLG HOLD PRINT timeout flag 
EXTERN FLTFLG fault time out flag 
EXTERN FLTREY 
EXTERN FLITIM fault timeout control 
7 main orogramn RAM 
RSECT SUPRAM 
pi 
INTERN ABOREQ 
INTERN ABDFLG 
INTERN BUSY 
INTERN ENAFLG 
INTERN EXSTAT 
INTERN RSTFLG 


abort request pending 

abort request active 

BUSY indicator 

device fault time/out state flag 
fault timeout -- time remaining 
enabled (Te) / disabled (Fe) flag 
special status byte 

current (last) order w/parameter byte 
RESET command received 

RESET flag recognozed 

Start op received 

Te 8e control register image 


ABOREQ RMB 
ABOFLG RMB 
BUSY RMB 
DEVTOF RMB 
DEVTR RMB 
ENAFLG RMB 
EXSTAT RMB 
PORDER RMB 
RSTREQ RMB 
RSTFLG RMB 
SOPREQ RMB 
TBRIMG RMB 


ee ee ee 


ate 
”~| 

at 2 te ae} O os fo 02, ) ty of . 9 4 te af, 4 2 1 a * 2 Ye at », ‘ Se Se ate aby abe abe 
She se Ss she he she Re: le a ae aie lhe ale ae Se ae Sr he She phe x ae ingen he ae She ste ate ake sts she Shs he aie ahs aus aie Ste Sts sic she Sie se Shs ae She she Sik Spe Sox SEs iS Sie is Soe SS SI ES ie BS Se a Re Se Se SE ie StS Sh OS Se ae Oe Te os Se ax 
ate abs alls abe whe «te whe alo abs ale whe whe ale aSe ale ate ate ale ale alo ale abs alle ale alle ale ats alle ats ale ale ade ude sill ally alle ab, ale ale nto alle alo als ale ale ato als ote abs ade ule ale ale ate whe ale als ate ate ele alls abe abe alle «fe alle als alle aby alle wie sho ato abe «ls wie ats 
whe 
“" 

RSECT SUPER 

) 
a) 


os commence with MAIN program 

begin by disabling -- no status 

BEGIN LDA #1 "disable" function code 
LDX #24 

1% Swi execute 


BNE 1$ this one shouldn't fails but code it anyway 
BRA TDLE : : | 


2% FDB 0 | | status control -- no bits set or cileared 
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oMAINe 


OOFA* 
OOFD* 


0101° 
0104° 


0108° 
O10B* 


D1LOF® 
~0112° 
0115° 


Oll7* 
OLIA*S 


0110°* 
9120° 
O12i* 
0123° 
U1l26* 


01238° 


0128" 
O12E* 
O131° 
0134° 
0136" 


0139" 
013C* 
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B6 


1025 OO1C 


BO 


1926 0056 


B6 


1026 9111 


BD 
TD 
27 


BG 
TE 


SE 
4F 
Al 
8C 
2F 


BD 


BD 


BD 


B6 
BT 
B7 


87 
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0008" 
OO0OC* 


ODOF® 


O008* 
OO05* 
03 


O22E°* 
QOFA’ 


0002" 
80 


NOs" 
FY 


0009% 


O00A* 
0001% 
0002% 
00. 


0003* 
QOOA* 


0602°. 
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835A *% 

836A BEBE BE 5 BE BE BE SE AE 3 OE OE Bo OAR OEE BS SES SEE OS ae 24s he SE as as Sik Bs Safe 2 ac ik aie 2 os Se aie Be 2 ik Oe IE OK AE 2 SS 2s 3k ae 2 Sik IK ok Ais Sie Es ae af ik 2% ais aie ais afk Seok oie ae I ie 2k Shc 
Q37A * | 

B38A IDLE look for job to do 

B39A * 

8B40A IDLE LDA RSTFLG look for RESET command 

B41A LBNE RSTCOM 

B42h 

843A LDA SOPREQ check for receipt cf a SGP command 
844A LBNE SOPCOM 

845A 

B46A LDA HLDREQ test for HOLD PRINT request 

847A LBNE HOLDST 

848A % 

B49A no work to dos check up on device 

B50A * | 

BS1A+ CALL DEVSTA is device ready 

856B EXTERN DEVSTA : 

8608 JSR DEVSTA (GO TQ CEVSTA) 

BEOA TST FLTFLG is fault timeout present? 

B81A BEQ DCXIT if no fault timeouts return to idle check 
882A * | 

BB3A JSR HOLDTO fault timeouts force IR condition 
834A DCXIT JMP IDLE 

BB5A *® 

BREA RAR ae oe Be ae oe he he aie ae ahs oe he he ae he oe ae he ae ae ae ae ah hee ae eae ate eae ah ok ake ah ae ae aie ake he ate he ae ale ate ac ate aoe ake atk oe ak ac ote she oik ok ok ae afk ac ote otk fe ok aoc ok ote oh ate ok ote oe oe 
BS7T7A Be HR BK SS Se BS SKK SI ME BS SS AIK SIS SC Of Be Sas ak ae aye aie aoe ik fs ok oes ofs aie afk aie Sk oe ate ake ok afk of of ate oh sk fe of ake ok she otk ah as oft afk ote ats hk afk afk ate oh ake ote ote ote ale oe ahs ae oh ats aie ale ae ate fe ofe ae ote ale of oh 
B88A 

BBIA & process a RESET command while idle 

B90A * 

B91A RSTCOM LOX #PSTATS+2 clear printer & control unit areas 
892A CLRA 

293A 18 STA aX+ 

BO4A CMPX #PBUFR+1 

B95A BLE 1$ loon if not clear yet 

B96A * 7 

B89TA 

B89BA+ CALL DEVRST 

9038 EXTERN DEVRST 

9078 JSR DEVRST (GO TC DEVRST) 

92 7A+ CALL PRIRST reset print module & device 

9328 EXTERN PRIRST 

9368 JSR PRIRST (60 TO PRIRST) 

~956A+ CALL SSAPOR " SLU processor 

9658 JSR SSAPOR (GO TCO SSAPOR) 

985A+ CALL PSPOR " Programmed Symbol processor 
9948 JSR PSPOR (GO TCO PSPCR) 
LO014A 7 
1O15A LDA © FHFALSE.s set a bunch of things to false 
LO16A STA RSTFLG | 

LO1L7TA STA RSTREQ 
1O18A STA 


BUSY 


L1LT4A 
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O13F* B7 OO0CT® 1019A STA SOPREQ 
0142" B87 o0o008 1G620A STA ABOREQ 
0145" 87 OOO1* LO21A STA ABOFLG : 
9148" B6 )000* LO22A LOA PSTATS clear status bits other than IR & ST 
0148" 84 09 10234 ANDA #S 
C14D" 87 ooro® 1024A STA PSTATS 
Gi5o0* Bd oOocc® LO25A JSR PRGINI 
0153" B66 oOOoCT' 1026A LDA EXSTAT update "special™ status 
0156" 8A 10 1027A ORA #16 esereset 
0158" B87 90078 1028A STA EXSTAT 
O15B* $7E OOED® 1029A JMP BEGIN restart with thines fixed up 
1030A * 
LO31A * Start operation -- decode and start it 
1032A 
O15E* Bé& DODD 10334 SOPCOM LDA ABOREQ abort request in idle is a special case 
0161" 26 5C 1034A BNE  IDLABO 
0163" 86 O00 LO35A LDA #FALSE. Zap SCPREQ 
0165" ~p7 oonoc* 1036A STA SOPREQ 
O168*" 66 O0008° LO37A LDA PORDER valicate and decode the order 
O016B° 1027 9996 1038A LBEQ INVAL 
O16F* §1 04 10394 CMPA #LPSCOD 
C171" 102E oo09C LO40A LBGT INVAL 
0175" 27 14 LO4IA BEQ SOPLPS 
O177° 81 02 10424 CMPA #SSACOD 
0179" 26 25 1043A BNE SOPPRT 
1044A % | | 
1045A %* operation is SSA -- do it 
1046A | | 
0178" Bé OCcOoT® 1047A SOPSSA LDA EXSTAT update "special" status 
O17E*" BA Ol 1048A OR A #1 ese SSA received 
0180" BY oooT® 1049A STA EXSTAT 
L1O50A+ ION <F> re-enable interrupt 
0183' 1C BF 1Oo776 ANCCC HINeMSK turn F interupts on 
3 1078A+ CALL SSA do SSA 
~1083B EXTERN SSA 
0185" BD 0008 10878 JSR SSA (Go To SSA) 
0188" 7E& OOFA® LLOTA JMP IDLE 
1i08A * 
L11L09A operation is Load Programmed Symbots -- do it 
LI10A * 
0188" 86 Oo0O07' L1111A SOPLPS LDA EXSTAT update "special”™ status 
O18E’ BA GE 1112A CRA #8 eae LPS order received 
01990" 87 9007' 11134 STA EXSTAT 
0193" 66 00 L1L14A LBA #FALSE. LPS can be disabled 
0195°% BY 001C° 11154 STA DISINH 
L116A+ ION <F> posstole PCI 
o198! LC. SF 11433 ANCCC #INeMSK turn F interupts on 
1144A+ CALL LPS 
11498 EXTERN LPS 
O19A* 8B O00C* 11538 JSR LPS (GO TC LPS) 
0190" 7E& oO1bbD? Li73A JMP IDLE1 
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oMAINe (SUPERMAINS SRC) SUPERVISR. 736 
1175A cperation is Print -- do it 
L176A 
O1A0* B6 OoOOo7* 1177A SOPPRT LDA EXSTAT update "special™ status 
GC1LA3* BA O04 1178A OGRA #4 eoe PRINT 
O1A5* B77 OOOT® LI79A STA EXSTAT 
01A8? B& OO1i1* 1180A LDA PMODE+1 check for a MODE=0 command 
O1AB* B84 O7 1181A ANDA #7 other bits may be defined 
QOLAD®* 27 CC 1182A BEQ SOPSSA : 
QOLAF® 86 O06 11834 LDA #FALSEe release disable inhibit 
6181" 67 90010° | 1184A STA DIS INH 
| | 11385A+ ION <F> possible PDI 
0184° 1C BF 12128 ANCCC #°Ne MSK turn F interupts on 
0186" 7F oO0o03* 1213A CLR DEVTOF device fault becomes print problem 
1214A+ CALL PRINTM 
12198 EXTERN PRINTM 
O1B95 BD OCGOD* 12238 JSR PRINTM (GG TC PRIATM) 
O1Bc*t 7E 9100" 1243A JMP IDLE 
1244A 
1245A 
1246A ABORT received in idles dismis it 
1247A 
124B8A 
OLBF* 85 OOD 1249A LDA H#FALSE. clear some things 
O1C.* BY ooOoc* 1250A STA SOPREQ | 
O1C4" 87 OO02° 1251A STA BUSY 
O1LGT* BY oOO00* 1252A STA ABOREQ 
D1CcA® 57 09001'° 1253A STA ABOFLG 
o1Co0° h7 0010° 1254A STA DIS INH 
0100' B6& oOooT® 1255A LDA EXSTAT update "special™ status 
0103° BA G2 1256A ORA #2 ewe ABORT 
G105* e7 ocoT7t 1257A STA EXSTAT | 
: 1258 A+ IQN <F> , 
O0103°* 1C BF 12258 ANCCC #'NeMSK turn F interupts on 
Q1DA* 7E OGFA? 1236A JMP IDLE 
1287A & 
L288A &® 
12B9A check for ABORT HONORED by action routine 
129C0A * 
1291A * 
OlDO*® 34 O1 1292A IDLEl PSHS CC Save interrupt state 
| 1293A+ IOF <F> 7 
QO1LDF? 1A 40 13208 ORCC H#eMSK turn F interrupts off 
D1E1* B6 9001° 1321A LDA ABGFLG check for ABORTA flag uo : 
Q1LE4"* 2f 1a (1322A BEQ NODABRT branch if no abort requested durinc action 
O1LES* BS O00G2" 1323A LDA BUSY if abort was after actions BUSY will be set 
O1E9* 26 15 1324A BNE NOABRT branch if abort received after action disable 
1325A * p 4 
1326A * handie ABORT received during action routine 
327A : 
O1ES*' B86 O007* 1328A. LDA EXSTAT update "special" status 
O1EC* BA 02 13294 ORA #2 ese ABORT 
O1FO* BY oocT7’® | 1330A STA EXSTAT 


SUPERVISOR 
eMAINe 


O1F3* 
O1F5* 
O1lF8* 


C1lFA* 
O1FD* 


O20C* 
0202° 


o205° 
Q207° 
020A" 
0208" 
o20C° 
O20E" 


O211'* 
O212° 
O216° 


O217° 


O219" 
9218° 
O21E* 
O21F° 


o220° 
0223° 
0226* 
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86 90 1331A LDA #FALSE « clear abort request 
BY 0o0oo01°* 1332A STA ABOFLG 
35 91 1333A PULS CC restore interrupt control 7 
1334A+ CALL SSAPOR SLU needs to Know about good aborts 
BD O0OL* 1343B JSR SSAPOR (GO TC SSAPOR) 
TE OOFA®* 13453A JMP IDLE 
1364A * 
1365A * no abort or received after action routine dismissed 
1366A *% 
35 O01 13674 NOABRT PULS ‘Co restore interrupt control 
TE OQOFA® 1358A JMP IDLE | 
1369A * 
L370A * specified "order" is invalid -- done already 
371A *®& 
86 D1 L372A INVAL LOA #1 disable 
BE O211° 1373A LDX #INVALD 
3F 1374A Swi 
50 1375A TSTB 
26 FT L376A BNE INVAL retry if failed 
TE OOFA® 1377A JMP IDLE 
1378A * 
ee ** return status “order comptete™ & “order error" 
34 13281A INVALD FCB OCBITI+SDABITI+EC BIT 
00 00 C0 O00 13862A IDLETC FCB 0909090 
C4 133834 FCB 4 
1384A * 
1i385A * 
13 BoA DES SIE HIS TK BES BS SPS SYS SEE TIS SIS TAS BES Ie SI IE BBS NE IE BIS TIS Se SIC BIS SIs BK Sfs Be THe BE aI SE MIS Ss I Sik SES af BIS Ne as Oe Oe Se OP Sie BIS ahs ie ie afc ak ays af BI Ss Ye fe 2 Se 2G YS SIE OS SIS Se ON Be SES AE Bs OS IS SIS EE SE ES 
1387A * 
13388 1388A IDLELI FDS 30000/TICK 30 sec in TICK ms intervals 
1389A 
1390A 
1391A * IDLE ENABLE TIMEOUT -- disables SA 
13924 % 
Bo Ol 1393A IDLETQ LDA #1 DISABLE functton code 
SE 0212° 1394A LOX HIDLETC 
3F 1395A Swi 
39 13965A RTS no retry required 
397A : 
1398A cs NOTE: disable will fail if printer ts disabled already» in which case 
L39S9A % this disable is superfluous 
14C0A > | 
L401A DR OIE OS Sk TK Si Si oe ais ahs oie ys he ak oie fe hs as ois sks ays Se as aos Sis sis sis ss ak oh oie ahs ais ahs she Se she oe es ak oi abe hs ae She ahs ois se aoc fs hx aoe ays Sis OO Ok ES oy Sik OK Shs SS SIX HK Bik Sis She Se Sie aie ois aie NS Oe Sc oh ok oh 
14024 
1403A HOLD PRINT request active -- go to hold 
1404A * | 
1405A+ HOLDST CALL HOLD go do whatever reaquired 
14108 EXTERN HOLD 
BD QO0E* 14148 JSR HOLD (GO TO HOLD) 
BS 0004% 14344 LDA HTOFLG check for HOLD PRINT timeout 
2¢ 1435A BEQ i145 


03 


SUPERVISOR 


oMAINe 


0228° 
O22B° 


N22E° 
0230° 
0233° 
0235° 
0237? 
O23A° 
023B° 


O23C* 


BD 
TE 


86 
B4 
26 
86 
BE 
3F 
39 


08 
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922" 
DOFA® 


08 
0990° 
O06 
O01 
O23C* 


00 
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14364 
14374 
1438A 
1439A 
1440A 
1441A 
1442A 
14434 
1444A 
14454 
1446A 
14474 
14484 
1449A 
1450A 
1451A 
1452A 
1453A 
14544 
1455A 


1457+ 


JSR 
1$ JMP 


ale 
a teal 
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HOLDTO 
IDLE 
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HOLD time-outs set IR 


2 HOLD PRINT timeout discovered in idle 


ate 
“, 


HOLDTO LBA 
ANDA 
BNE 
LDA 
LDX 
SWI 
1$ RTS 


“~~ 


also: 


KRIRBIT 
PSTATS 
1% 

#1 
#HTOCON 


used by device fault timeout in 


idije 


see if IR already set 


DISABLE code 


HTOCC! lis contro oO se 

ante 

+e 

ae 

~~ 

wt we ay ate ale ale ally ale adh alle nde wily ale ale alle aly wile ale ale nbs ale ale elo alo ale ale ale aly afe ale alle nie nto aly alle ule ale als abe abe abe os alle ade alle als alo ates ale ule alo aXe alls whe alle ats als whe allo able ute nly ale aly ate ahs ale alle ale alle ute nll alle ale ule ale ale of, 
wide ate als ale aBe afte aly ale ate whe uly abe ate alo atte ule ade ale ale ale alle alo alle ale alls wie ate ate ate ale whe alle ate ale ate ale ade ale ule ale ads ale ale ale whe ale ale ale wSe ale als a! By ate abe alle ade we ate alle abe abe ate ate ale ale whe ale ats ale als alle alle als alle ate abe wi, 


FILE INTERRUPTS s<SUPERINTS « 136> 


SUPERVISOR 
INTERRUPTS 


OOOF* 
90108 
Oo01i1' 
0012’ 
0014* 
0016" 
col?’ 
0018% 
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=Q00F 


=0001 
=0001 
=0001 
=0002 

=0002 
=0001 
=0001 
=0002 


=O23E 


L459A 
14634 
1464A 


~1465A 


1465A 
1457A 
1458A 
1469A 
L470A 
L471A 
14724 
1473A 
L474A 
1475A 
L476A 
1477A 
1478A 
1479A 
1480A 
14814 
14824 
1483A 
L454A 
1485A 
1486A 
1487A 
1488A 
1489A 
L490A 
1491A 
14924 
L493A 
14948 
1495A 
L1496A 
1497A 
1492A 
L499 A 
L500A 
1551A 
1502A 
15034 
L504A 
L505A 
L506A 
L507A 


15094 
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SUBTTL INTERRUPTS (SUPERINTS*736) 


wills 

Pas 

ats ate whe wie ale abe ale ale ale ato alls ate alle ale allie Fs ate ale abs ate <= ate ale ate alls als alls abe aly ale aly als 4 whe ale We alle aly abe ate abs abe ale ale ole 23s ally ate aly abe ally alle ale ale a¥e ale se whe aly alle aty she abe ate ate abe ale ale ale ale aly ale alle ale ale i8e ole ale ale 
Sgt gt Ge Gh Yt ON me MGS ge BGS gh 2 ye gh gh gh Oye ge age ge oe gh Gh gh gh ge gh Gh Sys Hgd BEd MGR Mgd OG Syd Sgd AR HGR OEd Hyd SGd Syd gd Hyd H_r Hq Syh HYD Tyr HGS Grd Hye H_® MGr Hd Fg Hgd S Gr AYA Meh OGr Igo Or Fr = Sgt Gh FS yh gh gh gh Qh gh ge Aye gD Oym age 
ate Se ate aly ahs ale ale ate alo ate we 2! le alle whe ake ale afs ale ahs ale ate ole alle ate alle whe alle ale ale whe ale ate alle -u'e Me ale whe ale ale ate ate ule ate wie alle ule ate we ale ale ahs nfo ole ale ale ate Se alo de alle als ale ade ale wBo alo alle ale whe «te alle alle ale ats ale als 
og og pad Ne ee ee s ad »>* P*4 IG™ Ee Ge G™ Hae ge Oe GF Om Ge AGN SG™ Set Sgt GR Oy™ Oye 4 Po LR 4 PP OM MP OG Os Da TP Or Ar OW og Se Pp ye Er Mg? Mah gh OG Hg Ge OS ye m4 Pym gh Sgt yh OS Os Ge ORs Or 9 OR os aye 28 oe =: age «8 
abe we ale alle whe a¥e whe ale a8e ale aly alle ote ale alls alle whe alle abe alle alle ate ate alle ale ale ale ale ale abe ute abe alle ute ale ale ale aBe als ale ale alle aly ule alls alle ale ales ule whe aly alle alle alls aly ale ale ale ale ole nde wie ale ale abe alo alle a¥e ate als 8s ule ale whe alo ale ate aby ade 
Fgh gh Sys High SGd MS ge Hyd OGd Mgd Sgr Sgr SEE Hyd Oye Oye age Sgr Syd AES SGN yh OES Hy Gh GN Ugh Ge Ogh Mg gs ge gt Hge poi Py Fgh ge Gh OG yh gh S Gh Sgt IGN OAD OY TGR FAR GN Gh Gh YS PG Oe OED Ge HER OS Or Pid Pgh FY Oy gs Gh gh Ogd Sym Mgd OLS Hyd OER He AED Oh OG OGD Oe 
ate ahs aly : ate ate ale 
we We ale ute uhs ute 
gt hgh og a 
whe ate ate i ; Cc ate whe ate 
my ye aye 1 ; i a) : % ym Mem 2g® 
ale «Be als ate ate ate 
Mgt og oe gh ge 


ARIE INTERRUPTS ARE: | sete 
TEE OK (1) Top Board -~ FIR@ 7 EE 
TE AE OK (2) Printer: == TDEVICE” “== TRY HK RE 
SEK OK (3)0 Timer -- IRQ | me AE 
BRE A (4) Supervisor trap -- Swi HE SK A 


ate ate ate ate ate ale 
wt fe Seed ale alls ate 
ats a%e alo whe abe ale 
ale Be abe whe a le ate * ed aly ate ale wh st se whe ate ale wt, ate alle wo we 2' 2 ate ale we abe wt, a% ne ate uty ale ats ate aly ale o = ats We Ded abe afe ate ale a8e aby me ale aby ate ote ate ule ale ah, alo Fe = ate ate she ste = Pi whe alle aBe ale we ate ste ale ule ate nits ate 
ate We aly ale ale ate ato alo Sed afte ule aed ate 4 ste at. afr = ate nie whe ake = ate bi ale ale Be ate Pi we <5 Le uly = ate 4 wBe ads albe ale alle ale ate ate alle aby ally abe alle ate als ale ale alle ade ale ade ake nto ade alle aly ale nls ale als alle aly whe a8e ale ale ate ats al ale 
ate 

”_* 


EXTERN HLDFLG 
INTERN HLDREQ 
INTERN LSTCOM 
INTERN LSTORD 


ale 
o,* 
ate gle ale ale ale Se ats ate wate fe ate we fe whe ste ale ate ate ate ale whe ale So ate ahr ale ale ate ale We 3 oe eo Se eer sate ee ee ae aPe Se ate ale ale _— S. ale bi diet a wh als a Piet Se SS rie Seer ce se oe ee ee wile ate ale ate 
nts We =: whe whe = ate = = we pe nate ate abs aly ats als ale ale ule ale pes ale ate = nate ude als ate als -.1e =< ats abe aly 4 ate Fe ale aly ate fe ate whe ~ts ate oly = whe aly 3 ate wile ate ale 2-4 whe ats ate ale als ale «2 ad ate wfe alts ale ate abe ale wie oe Sd Me ate ale ale ule 
», 3 2. 
2Ae Fee Ae 3K HK OK 
Po abe sc 
oa oe ba go 
He Ae TE QCAL INTERRUPTS (IRQ) TIME : e ae 
aa LO NTERRU Q) -- TIMER(S)>. PRINTER INTERFACE, ETC. sa 
at, Ky of, 
3K OK KOK OK 
3, is Fi 
eS 2K pa ekg 
Ble he ahs she ahs oh we oe oe oe ake os ote as afk ats ae ate os Ps ate ote hs ofe ote ake te Be hk stk ok ke se te ule ate aly af 8, De whe ate whe oF. s t, af Do ule wtp wf re e. 2, 
Dye Tye Dyk ys Tel BS FYE SAS TES SS FS A AS BS SK SG Tye SE SIE SLs SS ES OS SIS SC FIR BS SK OS SYS Bye TES SIS Sis SI Ts SS Sis oi By ais ois SE Os ss Sik Be Sis Sos Os he sie ofc ois te ie ok tk ote ai abe ole ote ais oh oie oh ake ste ake ate atc she ote ote alk oe ke she 
ate 
Cat ed 
Ps ; 
SOC og OM SUPRAM 
“> 


HLDREY RMB 
DISINH RMB 
LSTATS RMB 
LDADR RMB 
LDPTR RMB 
LSTCOM RMB 
LSTQRD RMB 
POINTR RMB& 


Je 
—e 


HOLD request indicator 

Gisable (poll) inhibdit 

save of tast disable status 

save of last disable Swi address 

save of last disable vector address 
save of last coax command received 
save of last order received 

pointer to last used interrupt routine 


RO NN ee 


RSECT SUPER 


SUPERVISOR 
INTERRUPTS 


QO23E° 
0241°* 
0244" 
0246° 
0248° 
N24A* 
O24C° 
O024E° 


O24F* 
0252" 


0253" 
0256° 


0259" 
0258" 
025° 
0260" 
0263! 
0265" 
0268! 
0268" 
9260" 
O26F" 
o271° 


D274" 


OZ7T* 
O27A* 
O27D° 


0280C" 


B6 
B4 
B4 
B5 


B45 


3B 


BD 
38 


co oo 
CO 


1A 
7D 
27 


26 
TF 
BS 
81 
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(SUPERINTS.736) 


BOOD 
800E 
42 
40 
99 
02 
01 


9610% 


O4EC® 
0411" 


40 
0023" 
14 
OO0F* 
OF 
9023° 
OO1D® 
05 
05 
FF 
OQO0F* 


ooo0a' 
O00B" 
0000 
9001" 


L51OA 
15114 
1512A 
15134 
1514A 
L5t5A 
L516A 
1517A 
15184 
1T519A 
1520A 
1521A 
1522A+ 
15278 
15318 
15514 
15524 
1553A 
1L554A 
1555A 
1556A 
1557A 
1L558A 
L559A 
L560A+ 
15878 
1588A 
15B9A 
L590A 
1591A 
1592A 
1593A 
1594A 
1595A 
1596A 
1597A 
159B8A 
1599A 
16900A 
1601A 
16024 
L603A 
1604A 
1605A 
L606A 
1L607A 
1608A 
1609A 
16104 
L611A 
1612A 
1613A 


we 
Sat tod 


IRQINT 


PTRTRP 


coe 4% 


CLKTRP 


84 si 
3 We 


whe 
A 


200% 
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LDA 


ANDA 
ANDA 
BITA 
BNE 
BITA 
BNE 

RTI 
PRINTER 
CALL 
EXTERN 


JSR 
RTI 


VIAIFR 
VIAIER 


H(VIATC3)240VITAPC2) 


H#VIATC3 
CLKTRP 
#VIAPC2 
PTRTRP 


TRAP 


DEVIR®G 


DEVIRQG 
DEVIRQ 


CLOCK TRAP 


JSR 
JSR 


now do clock 


IOF 
GRCC 
TST 
BEQ 
TST 
BNE 
CLR 
LDA 
CMPA 
BNE 
LDA 
STA 


LDA 
STA 


TOP BCARD causes FIRQ 


CLKITI 
SWTTRP 


<F> 
feMSK 
SWFLAG 
2005 
HLDFLG 
2004 
SWFLAG 
SWBYT3 
#HOLDSV 
200% 
#TRUE« 
HLDREQ 


RSTREQ 
RSTFLG 
ABOREQ 
ABOFLSG 


BOAR ODO" 


VIA FIRQ 


Page 8-1 


identify interrurct source 
isclate enabled interrupts 
from known flags 
test for clock 


test for printer 


invalid interrupt 


(GG TO DEVIRQ) 


go do clock related things 
update switch readings 


initiated SUPERVISOR checks 


turn F interrupts off 
Switch flag set? 


"HOLD" in effect? 
when HOLD is one 
clear flag 
ONLY HOLD 


HOLD handtes switches 


is legal 


set HCLD REQUEST 


copy reset request to reset flag 


abofila = rstfig eVe aboregq 
ode ne als ale Se ale nBe whe whe ads ale whe We whe whe alle ute ado ate nto alls ale ale afe abe abe ade ale ate Wo ade ale ale als ule wate ale ate ate abe abe ale ate ato ale 
Or Ogh SYh FSR Or YD ON Gs Oye 2gh ye gd gh ay Meh Ge OE Pr Ge HGR OG Oe ye ye GL Oye My A ee ee eS ee ee ee 
ate ats abs ate ate abe «By nde whe ty ate aly ate abs ale ate ole 8s ~ Bo ule ate ate ay ate ate we ~! fe ale ate ate we als ale alte ale ale who abs ate ate aly ate 
oy “ge M9 PGR Qh OG OG yh AGS gh Hgh OAR gh ge Aye AN OED wy ” og Bytom OS Oro ee ee eS 
INTERRUPT 
4 ING 


to be generated to signal a request for a 


SUPERVISOR 
INTERRUPTS 


O281° 


0283° 
0286" 
O257' 
d288" 
0239° 
O2B6A* 
O28C* 
N28F* 
0291" 
0294' 
0295"% 
02988 


O29A* 
O29C°* 


0290" 
O29F* 
O2A1° 


O2ZA3* 
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(SUPERINTS« 


34 16 


F6 2500 
59 

59 

59 

a9 

C4 06 

BE 029D% 
30 95 

BF 90018° 
54 

FY OO16° 
AD 84 


35 16 


3p 


O2A5° 
92C7! 
030B° 
O2E4" 


736) 


L614A 
1615A 
L616A 
1617A 
1618A 
L619A 
1620A 
1621A 
1622A 
1623A 
1624A 
1625A 
1626A 
1627A 
162BA 
1629A 
1630A 
1631A 
1632A 
1633A 
1634A 
L635A 
1636A 
1637A 
L63B8A 
1639A 
1640A 
L64IA 
1642A 
16434 
1644A 
L645A 
1646A 
L547A 
164BA 
1649A 
L650A 
L6S51A 
1652A 
1653A 
1654A 
1655A 
1656A 
L657A 
165BA 
L659A 
L650A 
1661A 
1662A 
1663A 
1664A 
L6455A 


SUPERVISRe 736 


at, 
>) 

cs be 
wis 
iad ad 


aly 
"- 


wt 
~?_ 


CMTBL 


li-May-83 16 


“bottom board" 


request 


function code 
"IBSMSK"™, 


codes are: 


WN pm & 
i 


for Start OP 
order 


loaded byte at PORDER. 


2493273 


code 


Page 8-2 


functicn 


is accompanied by a function code 


"STATUS" masked with 
indexe 


is determined by interrogating 
is then rotated for use as an 


DISABLE 
ENABLE 
RESET 
SOP (Start OPeration) 
(code 3)>s 
to be performed is determined cy reading controller 
currently defined operations ares: 


1 —- ABORT 
2 == SSA 
3 - PRINT 
4 - toad Programmed Symbols 
FO - Reset (may accompany RESET code) 
PSHS AyBeX these registers are used to service interrupt 
LDB STATUS read command and compute command table offset 
RGOLB 
ROLB 
ROLB 
RGOLB 
ANDB #TBSMSK!>5 mask tc needed bits only 
LDX ACMTBL | 
LEAX [BX] compute address of required routine 
STX PCINTR eee and save for diagnostics 
LSRB save command for status print 
STB LSTCOM 
JSR aX go to required service subr 
PULS AeBexX restore registers 
RTI | 
COMMAND TABLE 
FDeB CMOIS to service DISABLE 
FDS CMENB " _ ENABLE 
FDB CMRES ” " RESET 
FDS CMSOP no ay SOP 


SUPERVISOR 
INTERRUPTS 


O2A5" 
O2A3° 
O2ZAA* 
O2ZAC 
OZAF* 
O2B2° 
0234' 
0287!" 
O2RA* 
O2BC* 
O2BF* 


oO2CC* 
0202" 
9204? 
02C6* 


O2C7° 
O2C A" 


O2CC* 
O2Cr ® 
92D1° 


0203° 
0203' 
02D5* 
0208°* 
O0208° 
QJ2DE* 
O2EC* 
O2E3°* 


o2E4° 
O2E7* 
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7D O0O108 
26 16 

86 00 

BY OO06°* 
BD O4AA® 
0219° 

BY 6000 
FC O0O0D* 
BA 02 

FD 7090 
39 


Ad 456 
BA 46 
AT 66 
4g 


Pores 


7B 6002' 
26 O7 


BD O475° 
02198 
0217" 


CS FF 
Fi O006° 
BY? 6000 
B&6 O0000° 
34 18 
oY O)oo0* 


39 


BD 02D3° 
86 0016" 


1666A. 


1667A 
1668A 
L1669A 
L6O70A 
1671A 
16724 
16734 
L1674A 
L6T75A 
L676A 
1677A 
1678A 
l679A 
L6S80A 
1681A 
L682A 
15334 
16844 
1é85A 
1686A 
L637A 
16B8A 
L639A 
L690A 
15914 
1692A 
16934 
16944 
16é95A 
L&96A 
16978 
1698A 
1L699A 
L7OOA 
17014 
17O02A 
1703A 
1704A 
1705A 
LTO6A 
17OTA 
L706A 
L7O9A 
1710A 
1711A 
171i2a 
1713A 
L714A 
1715A 
17164 
L717A 
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ate ate ale ate ate ake ale whe ole alle ale ate whe ade ate 
Sgr HGm Met gh Mg® Gr Mg® ge 3% ay og* oy wg ays ae tad Ae pl 
ate whe abs ale nls ale whe whe ate ale ale ate abe ale nto ale 
Or Pgh EGR Ge AR Oye OR gh Ge Oe Oh APN oe Ot oS ON 


&4, Ae. 
se out 


DISABLE 


S$ 


& 
é 


CMDIS TST 
BNE 
LDA 
STA 
JSR 
FDB 
STA 
LDD 
GRA 
STD 
RTS 


x backgrou 


14 LDA 
ORA 
STA 
RTS 


we 

~~ 

ate ale ale ate ate ale alle ale whe ale ale ales ate He 28s ate 
em a gh Mae Mgt et Et Me™ Me™ Ham MG Me™ gt Mu a> “a* 
ate Be Be ale als abe wlle ake ats alle ally ale ade abe ale 
MG gh gh Gh GS Ae AGS OG ON OY 2S Gh ge Hye ONY, 
ah, 

3" F 

ale i 

‘ "SIMPLE" 
we 

bat Thad 


CMENB TST 
BNE 


JSR 
FD8 
FDB 


1% 

CMENBL LOS 
STB 
STA 
LDA 
ANDA 


ats 

““ 

wate ake ale ate whe alts afr aby ule ade ale aby ale at vhe 
at) Pye gt Mgt ym — mgr Hg Hy Mgt ge gt ye Mge om 
ale ato aly ale ate abe ate ale abe ate aly ale ale wie ale ~te 
PEr Mg Gh GS Gt Gh gs Hg yh gF gh Og ge MGs Oye Hye 
ate 

as 

* sop -- 
ate 

Sa ed 


CMSUP JSR 
LDA 


3 10249223 


ate oR ute abe abe ale we nhs ule as we alls xt aby alle ote 
pS et ees 
ats ale ale ale alle oto ahs abe nile rte abe aBe aly ak, ah, of 


REQUEST RECEIVED 


DISINH 
1$ 
#FALSE 
ENAFLG 
CTIMER 
IDLETO 
FIRQOFL 
TBRIMG 
ETBOISS 
TBREG 


nd disable or SO 
69S 


HFROMSK 
695 


ate whe abs ale ale ale ale alo ale als ule abe 8s ale ate a? 
” ag? wgt ge + Og Ogr Hg Mgr Fr ©, og og > “fe 
whe ate ate whe ate ale ade Jo whe te alle slo ale abe we vi. 
oye A ae* ye E* — Cel —e “a Age M—™ “ge “ee oy ~ | - 


ENABLE 


BUSY 
1$ 


STIMER 
IDLETO 
IDLELI 


#TRUEs 
ENAFLG 
FIRQFL 
PSTATS 
#¢CIRBITIS+CECRIT 
PSTATS 


ate ats als Se ale whe ale whe ute abe ale ale whe we als ate 
“ge Se tad Sat bd “ ef ot Sy gm 7 zy og +: “sy ew, De be ‘~~ 
whe alle ale whe ate rte ate ale ato ale ale whe ule als ale abe 


START OPERATION 


CMENBI 
ORDER 
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PS ee Ee Ae MD ee eS PGR Ge GEO Gh GS GN Ge Ge gh ON Oh a mye 
ads whe ate ate whe whe ate ate ate ats ols ntle ale afe ale ule ale ule ale ate abe ale alle whe ols alle ate ale ate nto ale ale whe ate ate ale ato ale ate oll nto ate abe alle ale whe 
a oy Pgh gh Gh Gh Gh Gh HyGh Ge Ge Gh gh gh gh gh Fgh Ge SYN yh OGh Qh OGD Sgr Hgd eye SEs Oye SYR OAR Age HGR Oe OAR Hye OGs AAR Sys Hye Oyh Sgt Ok 9k ON gt Os 


-- IF LEGAL», DISABLE 
backgrcund disable tn progress? 
set "disabled" internattly 
clear IDLE ENABLE timer. 


Clear FIRQ request (A) not important 


set up and 


effect the disable 


P in crogress 


indicate overtapped disable by disabling 
FIR@ in return CC 


wile ale abs whe ate ads ale alle ate abe ale ale ate ate ale ate ale a! a le abe ale ate alle ate ale ale ate ate ale Be nto ats ube als alle abe able whe ate ale ale ate ate ato 
“> Sg? Sgr Ge gh Hye gh Heh Ge Gh GS MGR MGs Ge Gh BGR YN FEe AN 4GN OGN gh He Sy Ot ye ye Gh FN Gh Gd GS Gh Ge Oye Ge AYN AR Oye OS Oge oye AN 
whe whe alle alle ate ale ale Be ate alo wile nto abs alo aby ale at, nls 0s we aly whe Be ate als ate ate ' ate me ade abe * Me ate ale ai, 
DSS TK Bek SES SS TS YS TK SS SIR YS TK SAS TIS BIS SIR SS SEE SS OS Ts See Ses afc Shs SNe aie she TC ahs soc she oie ake ais ie ate abe ote ole ahs ate ale ste ake ae 


if not busys start IDLE ENABLE timer 


not busys set timer 


set "eanabled" 


clear FIRQ request 
clear status except IR» EC 
) 


ate abs whe alle ale aly ale afs Po ate nap So « lo mle he ~Me alle Se nls ale abe ate abe 8s we nls ule ~lo a8e ats ole ale ade ate ale we ule ate ate I 
gh PGR AYR PGR QR GR OAM OG Ge GIG Ge GN Gh ON gh GN HGS ON RAN GR GE Oe OG GR ON AYR OR Ge Oe yh OES OD ED OWN Myr Gr Ge ON He Oe YS ON pe 
ale ate ale ale ate aly ade ale whe ale ate we we ale alls aly ale whe abs whe ale why we ale ale ale ale aly ats ale ale ale ale ale aby ate ale ode ade ale ade ate 
Pg Fy Fgh Fgh OGe Fgh ON 09> Oh OW gn Oye Py gt PROGR PgR OR gd OAR Hye OGd BAN Syd gd ge Gg Oe Oye Sgr Sgt Pgh gh Syd SGd Ar SGD GN age oye Oge F)> ©, 


do a "sinple" enable falso sets B=TRUE.] 


SUPERVISOR 
INTERRUPTS 


O2ZEAS 
O2EeD* 
D2EF* 


O2F1' 
O2F4* 
O2F7* 


O2F9* 
O2FC* 
O2FF? 
0301" 
03048 
0307" 
O30A" 


O308° 
O39C* 
0310° 
0313° 
0315* 
0318° 
O3S1A° 
O31D* 
9320° 


0321' 
0324' 
9328" 
O326"* 
O32D* 
O032F°* 


G332* 


0334" 
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B7 0017" 
81 01 

27 08 

BE 9016" 
BF 9008" 
20 08 

F7 90008 
BS 0002" 
26 09 

F7 0010° 
F7 900C* 
F7 ovo2* 
39 

B6 FF 

87 O00A' 
B7 0006" 
B6 oo000' 
84 FE 

BA 90 

B7 700C 
B7 6000 
39 

75 on06° 
1027 0080 
86 OOOAt 
26 78 

B6 FF 

B7 0010" 
1C 3F 

BD O4AAt 
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L71B8A 
1719A 
1720A 
l721A = *® 
L722A os 
L723A 
1724A 
1725A 
1726A 
1727A * 
1728A * 
1729A * 


1ll-May-83 10:49:23 
STA LSTORD 

CMPA FABOCOD 

BEQ 3% 


not an abort order -- 


LOX ORDER 
STX PORDER 
BRA 2% 


start operation -- 


Page 8-4 


Save order for status print 
check for "ABORT" order 


copy to background save cell 


transfer order and narameter bytes 


ABORT 


1730A 3% STB ABOREQ set abort request 
17314 LDA BUSY check for prior busy 
1732A BNE 1$ 
1733A 2% STB DISINH inhibit poll disable until order recognized 
1734A ST8 SOPREQ 
1?735A ST8 BUSY 
1736A 14 RTS 
L737A * 
L7I3B8A Bese Se Se oe oe oe ok Sa oe ee ee oe ee ee ae ee en ne ste Ree aie oe She ste She ee ie She she oie eo Se oe ie Se Se Se ee Se Se oe oe Sa oe Se oe oe oe Se oe ee es ene te Sie See ope oye ope 
L73S9A Sie Se is Se She Sie She ia he Se Sie ee ee oe ee Se Se ee oe ee ee oe ee ee ee ee sie Sie aie ale oie oie sts Ste. aie ate le ae Shc ale ge mie aah aig whe ie Sie Sie a oe Se se ee Sik Soe Soe Bae Se See See oe ee oes 2 Se Oe See ae Se oe ae 
17490A *% 
1741A command RESET 
i?742A 3% 
17434 CMRES LDA #TRUEs set reset requests enabled state 
1744A STA RSTREQ 
1745A STA ENAFLG 
17464 LDA  TBRIMG lock out top board 
1747A ANDA HINCTBRSTM) 
174BA DRA #TBRSTB 
L749A STA TBREG 
L750A STA FIRQFL clear FIRQ request 
L751A RTS | 
1752A 
1/753A Se ole Bk Sie ah ie se ote ah is aks fs he ahs ahs aie aks ofe Se ae ae ae ie ahs ae Sis ays He Sie as ays aye ie Ye aie a Be 2k oe SEs Be De oye Se Se Sf Be Sk She Tye Tx IE Be BE She fs Ok SE nfs Se aoe AAs ahs Si ae He ae SEs oie Ne ahs it sie St oie Te aie ik ok 
1754A te te ste ste atk she she afc ste afc ate ate ate ate ate afc ake oh fe ak ate ok ote of os ate oe oi oh a ok se ole ac he oe fe ah ok ok ae ok ok oie ok oie ah oie ake oie ok ois 2h ahs ahs i ais ok tik 2K SIs ois aye She ois Ok Sis Sik ois She She Bhs Bic Bs 3s SK ie ois ae 
1755A 3% 
L756A * "SOFTWARE" "INTERRUPT™ -- SUPERVISOR REQUEST (DISABLE. STATUS AVAIL) 
L1757A 
1758A SFTINT TST ENAFLG it is not allowed to disable while disabled 
L759A LBEQ 5% 
1760A LDA RSTREQ if RESET requesteds DISABLE is irrelevant 
LT61A BNE 255% 
1762A LOA #TRUEs enableds set pcli disable inhibit 
L763A STA DISINH | 
1764A+ ION <F> ok to have TBINTs now 
1791B ANCCC #2 Ne MSK turn F interupts on 
1792A | 
1793A ciear idie time-out timer 
1794A) | 
JSR 


1795A 


CTIMER 


SUPERVISOR 
INTERRUPTS 


O337° 


03398 
0338° 
033C* 
O33F° 
0341" 


0344'* 
9346" 
0348"* 


O34A° 
034C° 
034p* 
0350" 
9352° 


0355°* 
0356*% 
0353" 


O35A° 


935C* 


O35F* 
0360! 
0362" 


0364" 
C366 


9369" 
935B" 
O36D* 
O36F* 
O371 
O374° 


O377°* 
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{SUPERINTS« 736) 


0219°* 


E6 
53 
F4 
EA 
F7 


48 


ES 
F7 


48 
AS 
27 


E6 
cad 


86 
AS 
2d 


86 


B7 


a) 


oe 


B6 


O1 
0000° 


84 
0000! 


01 
B4 


O08 


03 


Ooo1' 
02 
cOoO1* 


34 
0 


04 
o0c2* 


B4 
05 


05 
9903° 


290 
B4 
VG 
O78) 
0002° 
9000" 


d000* 


L796A 
L7T97A 
L79B8A 
L799A 


18004 


1801A 
1802A 
1803A 
1804A 
1805A 
1806A 
L807A 
1808A 
18094 
L810A 
LB1LIA 
1B812A 
1813A 
1814A 
18154 
LB16A 
L8L7A 
18184 
1819A 
1820A 
1821A 
L1822A 
1823A 
1824A 
1825A 
1826A 
1827A 
18238A 
L829A 
18304 
1831A 
1832A 
18334 
1834A 


1835A 


1836A 
1837A 
L1838A 
18394 
1840A 
1841A 
1842A 
1843A 
1844A 
1845A 
1846A 
LE474 


SUPERVISRe 736 


[A Se, 
%% St 


st 


3b o4b ae 


34, 
+ 


het 
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FDB IDLETO 


SET STATUS ACCORDING TO CALLers SPEC 


LDA 19X get bits to clear 

COMA 

ANDA PSTATS clear them 

DORA 2 X set requested "set" pits 

STA PSTATS STATUS byte conpiete 

LDA #1 check for ‘switch transition bit 
BITA 9 X 

BEQ 1% 


switch transition sets copy transitions 


LOB 3aX get clears» if any 

COMB 

ANDB PSWSTA Clear them 

ORB 29X QR in the tsets’* 

STB PSWSTA switch byte altered as requested 
LSLA | check for ‘input code avail® bit 
BRITA aX | 
BEQ 2$ 


input code available set» copy new input code 


move key code to KEYIN byte 


LDB 4X 

STB PKEYIN 

LSLA check for ‘sense data available’ 
BITA aX 

BEQ 3% 


sense data available set» copy sense data code 


LDB 59k move sense code to sense byte 


STE PSENSE 


status transferred as reqquested 


LDA #320 check for “order complete" 
BITA aX | 

BEG 4% 

LDA HFALSEe order comoletes zap "bpusy” 
STA BUSY | | 

STA ABOREQ and abort request 


set up to strobe DIS> then test for concurrent disable poll 


LDA PSTATS | Save info for debugging 


SUPERVISOR 
INTERRUPTS 


O37A" 
037D* 
O32 tS 
0382°* 
0384°' 
0386°* 
0389" 
O38C* 
O36E°* 
0390" 


03935 
0395° 
0398° 
0396" 
O39E° 
O3A0* 
93A2° 


QO3A5' 
O3A7* 


O3AE" 
O3AA* 
C3ACT* 


EC 


wT 


Ud oh 


36 
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(SUPERINTS- 736) 


Do011° 
64 
0014° 
6A 

TE 
0O12° 
o00o0' 
02. 
O01 
FFOO 


A8 
OC06° 
0010 
1000 
40 

O23 
560006 


O1 
62 


1846A 
1849A 
18504 
L851A 
1852A 
1853A 
1854A 
1855A 


 1856A 


1857A 
1858A 
1859A 
1860A 
1861A 
1862A 
1863A 
1864A 
1865A 
LE66A 
LB67A 
186BA 
1869A 
L870A 
18714 
L872A 
L873A 
L874A 
18754 
1876A 


1878+ 


~—6SUPERVISRe 736 


$e 
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STA LSTATS returned status 

LDD 495 

STD LOPTR control vector pointer 

LOX 10S 

LEAX -1 9X | 

STX LDADR SWI address 

LODO TBRIMG load X with DIS STROBE code 

DRA HTBOISB 

TFR DaX 

LOD H(TRUESIXB)I+CFALSES) constant to mask ints and cir DISINH 
(last place fo FIRQ before DIS strobe) 

EXG CCeA read and set interrupt masks 

STB ENAFLG set state = disabled 

STB GIS INH disable will again be allowed 

STX TBREG Strobe DIS to Te Be | 

BITA #HFRQMSK if FIRQ was maskeds a PGLL-DIS occurred 

BEQ 255% if FIRQ was not maskeds disable is complete 

STA FIRQFL POLL-BIS occurreds clear FIRQreq to set SA 

set return coce and exit 

CLR 295 clear saved 8 rege success return code 

RTI return to CALLincg pcrogram 

disabled when SWI occurred --- return failure code = 1 

LDB #1 set saved B rege to le failure return 

STs. 295 / 

RTI return to CALLer 

FILE SWITCHES »s<SWITCHES.736> 


SUPERVISOR 
SWITCHES 


OO1A' 
O01B' 
901Cc* 
9010" 
‘OO1E? 
OO1F* 
00290° 
0021" 
o022° 
9023° 
0024" 
0025° 
0026° 


Q3AD?* 
O3B0!° 


0382" 
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(SWITCHES .736) SUPERVISR. 736 


=DO01A 


=O01A' 


=C001 
=0001 


~=0001 


=O001 
=D001 
=9001 
=D)001 
=90901 
=O0001 
=9001 
=O001 
=O9001 
=0001 


B& 3800 


B8 OO 


a7 OO1LA® 


18B80A 
1884A 
L1885A 
LB86A 
1887A 
1888A 
18894 
1890A 
1891A 


1893A 
1894A 
LE95A 
189 6A 


L89BA 
1899A 
1LOO0A 
LSOLA 
1902A 
199034 
LOD4A 
1905A 
1906A 
LSO7A 
1SOBA 
LOODQIA 
LOLOA 
1911A 
L912ZA 
1913A 
LIO1L4A 
19154 
1916A 
1S17A 


1919A 
1920A 
1921A 
1922A 
19234 
1924A 
19254 
1926A 


SUBTTL SWITCHES 


11-May-83 10:49:23 


Page 9 


(SWITCHES .}736) 


whe 
Ba ta 
3, 2 Cy U 4, 2. 2, 3%, J : c 
DEES SK SIS Bk SS BE SK Be Bs ES he Sys sic i she aye ake ook ake sos ake aoe ae she abe ofc ae aie aks afc ate ahs ste ake she afr ak ole ale abe ste ste ale alle ate she ate fe ate ste ate of ate ae ate a ste ate ate ote ote he she ah ate ate ah ale s8e ate ate ake ah vfs ate ate ote 
whe ale uly abe aby whe we al Bo ule whe Se ade ate te 4 9, + *. #, Ao .t 2 ®, F 4, 2, ’ 
Se A SRA Ea a a ae a ae tea ee eae eae ae ae a ote a ae ak ea ke ce eae he ok ae ak eae ake oe rah Re ak ae eat oe eae ae oe ae ee ee oka ak ae ae he ae seat ae eae ae a 
wtp 
* f t 1 switch Ci f "old style" f t i 3 
oe ron pane SWiTC roucine Or 0 styie ron pane Pies 1368 
ate 
bart’ ba 
whe ale wide alle ate alle aly wile ule ale ate ule ake ale wile abe ole wSe 28, ale aR, ale ay alle abs aBe «Re ale w8, Be abe alle .8e a 8s Be alle als alle ale afe wR. ale alle ate alle alle adn ate ahs wSe a8 wll ake abe ale ule ate afe wSe abs ade Se abe alle ats ale wh. alle alle wie alle wSe abe ate ute allo ale nbo ate 
Sym He Mgt MEP Mg Ca® gh Mee My® Ha® Mgh Pah Oye Ka Myr HGe Hy Mah Sg® 72% Meh Mam Mq® Kq™ Mgh Hye Mgr Myr Myr Sgt Mg® KGs Mee E> Myr Ha™ Mg® MEP Se Sah Mg™ Meh Mg A yh Oy> MED B® MA ME® Sem HGS Me™ Mg Me™ Hg™ Ha> MEP M9? Mgr Te 3K OK OR Per Gh MES Qh Ma® Myr HG® Sgr Kye My HED Eh Hm Eh Qh MES 
ate ale ale abs ote ale ads ale ate ale ate whe ate ote ale ale af ale ate ale ale Be ale ale aly ale at, oho ats alo aly wo ale ole ale ale ale ale als offs a5 alle aly ole « Me al, aFe ule alle wie alle ule ule whe who Soe Seo eee Sane os eis ste st —<s bed ate ate ale safe ale 
INTERN SWBYT3 
INTERN SWFLAG 
ade ale 18y ale aly ote aly ate ate ate alle ‘alle alle ate ale allo ally ate alle alle alle abe aly aly ally ale ate alle ale abe uty alle ale ule ate aly ah oie whe ate whe ale ale ale whe ate vle abs ate als abe ate abe abe abo why ale ats abe atte abe alle abs ally ofo ahs abe whe ale abs ate ale aly aly abe <! Le ute 
at Yd be bd “gr er ag “~ Mgt oye og* — ta’ ad cod wh oye ~s ~~ Dat ale ial Cd pd Sad *;* Oe ied > oe ae bad Pym w, ~* be ed “> ~~, 7 -~ on bet el “~~ > gt =~ cad Yell = “~ nm iat fal “~~ “Gt ye Se ed a tee tl Yi ba od “y “ye “3° “ee > ye “gt "> “ye ~e “> + cd Ce ~~ ~~ ~~ wy Sat Nid a ry wy ~— “ye 
ale whe ate ate aSe ae als ats ale ato nle ale ale ule ale ale aly ale ale ate alls we ale alo ale abe ale abs ate ale als ato at, ate ats o8o ale >a aed PF de bi bade ie Sees oe = a ibs ees ste bi reper Ge ate ale whe ats aSe ade ate ates ate ale «Se ale ate ate ate abe 
whe 
Saat ‘ood 


SWVEC EQU 


SWBYTO RMB 
SWBYT1 RMB 
SWBYT2 RMB 
SWBYT3 RMB 
SWBYT4 RMB 
SWBYT5 RMB 
SWBYT6 RMSE 
SWBYT?7 RMB 
SWBYT8 RMB 
SWFLAG RMB 
SWPTRN RMB 
SWREAD RMB 
SWCNT RMB 


RSECT 


2s take 


** define base of this vector for other modules 


language and model switches 

testes FFics cases spacings LPI switches 
feeders pitch select switches 

current (rocker) switchs if anys debounced 
encoded form ltength (0-99) 


(reserved) 
A 


vf 

a1 
rocker switch change flag 
rocker switch pattern byte 
rocker switch reading (bus) 
rocker switch filter counter 


ee 


SUPER 


initial reading of switchese certain switches are read only 
at power_up 


SwWDIP | language and model select switches 
#SWMSKO | put into "true" form. 
SWBYTO 


SUPERVISOR 
SWITCHES 


O385° 
0337" 
O3BA" 
O38o" 
O3BBF* 
93C1* 
03C?2* 
0304! 
03C6° 
93¢8° 


03cae 
o3co¢ 
-03D0° 
0303" 
0305" 
e308" 
o3DB° 
O30C* 
O30F" 
03E2° 
O3E5* 


N3cz6% 


03638" 
O3EA* 
O3EC* 
O3EF* 
O3F2" 
O3F4* 
O3F6* 


O3F3" 
O3FA‘ 
O3FR" 
O3FD" 
O3FF* 
0401" 
0403" 


0405° 
O407' 
0409" 
O4DA* 
0408" 
C40D* 
0410° 


(SWITCHES »736) 


C6 
FT 
Bb 


88 


1F 
54 
Cl 
2F 
B4 
BY 


C6 
F7 
B6 
88 
BT 
BD 
4F 
B7 
B7 
BT 
39 


34 


1A 
C6 
FT 
86 
35 
88 
34 


1F 


54 


Cl 
2k: 
C4 
Cl 
2° 


54 
C& 
30 
40 
AB 
BY 
39 
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FE 
5000 
3000 
FO 
39 


4F 
02 
OF 
OciRB* 


FD 
5000 
3000 
Oc 
Oo1c*’ 
O3C6°% 


O024°* 
0025° 
9026' 


Ol 


16 


500 
3000 
Ol 
FF 
02 


B9 


4 
OB 
OT 
04 
05 


FO 


6G 


ED 
QO1E* 


19274 
1928A 
19294 
19304 
1931A 
1932A 
1933A 
1934A 
1935A 
1936A 
1937A 
1938A 
1939A 
1940A 
1941A 
19424 
19434 
19444 
1945A 
1946A 
19474 
1948A 
1949A 
1950A 
L951A 
1952A 
19534 


1954A+ 


19818 
19824 


—=1983A 


19844 
19854 
19364 
LOBTA 
1S588A 
1SS9A 
LODSOA 
19O9DLA 
L99Z2A 
1993A 
1994A 
LOS5A 
1996A 
LODTA 
LS98A 
1999A 
2000A 
2Z001A 
20024 
20034 


wie 


SUPERVISRe 736 


14% 


aly 
oe 


& 
st 


EADFL 


1$ 


11-May-83 

LDB 

STB SWSEL 
LDA SwWBUS 
EQRA #SWMSK1 
TFR AeB 
LSRB 

CMPB HB4F 
BLE 1$ 

AND A #$F 

STA SWBYTI 
LDB HINCSWSEL2) 
STB SWSEL 
LDA SWBUS 
EGRA ESWMSK2 
STA SWBYT2 
JSR READFL 
CLRA 

STA SWPTRN 
STA SWREAD 
STA SWCNT 
RTS 


read form length switchese 


PSHS 
TOF 
ORCC 
LOS 
ST3 
LDA 
PULS 
EDRA 
PSHS 


TER 


 LSRB 


CMPB 
BGT 
ANDS 
CMPB 
BGT 


~ANDA 


LOB 
MUL 
NEGA 


ADDA 


STA 
RTS 


HINCSWSELL) 


cc 
<I> 
#eMSK 


HIN(SWSEL4) 


SWSEL 
SWBUS 
CC 


HSWMSK4 


#EFO 
#96 


oe 


SWBYT4 


10:49:23 


Page S$-l 


select group 1 switches 

read them. 

mask to "true" 

accept only readings 0-9 for h-o digit 


40x is equivalent to 8 or 9 


invalids force zero 
select group 2 switches 


mask to "true" 
read form length switches 


clear "pattern" byte 
clear "read" byte 
clear filter count byte 


convert cecinal to dDinarye 
save caller's interrurct mode 


turn I interrupts off 
select form length switches 


data from switches 

restore callince interrupt status 
convert to "true" 

Save reading 


test switches for 8CD value 
divide by two 
4C witt occur w/98 or 99 


branch on invalid 


test lo digit 
4 will occur w/x8 or x9 
branch on invalid 


mask to high order digit only 

a carefully chosen constant 

w/ negas outs -6*{high order digit) in "A" 
invalids return zero {(-X+xK=9) 

adc in the reading again 

put result in switch vector 
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2052A 


SUPERVISOR 11-May-83 10:49:23 Page S-2 
SWITCHES (SWITCHES « 736) SUPERVISR.736 
Z2005A = * | 
2006A * interrupt! read legal switches 
200TA * 
Z2008BA Tne switches are read every 6ms and saved in READs 
20C9A 
2010A * READ is compared to LASTs if they are the samee COLNT is set to 
20O11iA * zero and PATTERN is set to READ. If they are differents READ is compared 
2012A * to PATTERN; if they are the sames COUNT is reduced ty one and checked for 
2O13A % ZEPr Oe If COUNT became zeros the switch flag is sets the switch transitions 
2014A * | are loaded into SWTRANs and LAST is set to READ. If READ and PATTERN are 
2015A different PATTERN is set to READ and CCUNT is set to 8. 
2016A *% | 
0411° 86 FE 2O1L7A LDA HINCSWSELIL) update test selection value 
0413" B7 5000 20184 STA SWSEL 
C416" 686 3000 20194 LOA SwBUS 
0419" 88 FO 2ZO20A EQRA #SWMSKI put in true form 
9418° B8 goie* Z2021A EORA SWBYT1 detect changes 
O41€° 34 FO ZO22A ANDA ¥$F9 mask to test selector only 
0429° Be 90188 2023A EGRA SWaYTl effect changes in SWBYT1 
0423" 1F 89 20244 TER AeB filter invalid readines 
0425 54 20254 LSRB 
0426" Ci 4F 20264 CMPB HO4F 40x represents test sw=3 or 9 
04238°5 Ze 93 2O02TA aGT 104 do not save if invalid (Ax through Fx) 
O42A° B87 o0O18* Z2028A STA SWBYTL 
202984 : 
2O030A now proceed to momentary switches 
20314 | 
0420? BH O023° 20324 LOA SWFELAS new switches are not legal if last not processed 
9430" 26 4? 203348 BNE 2553 | 
0432" 86 FB 2034A LDA #INCSWSEL3) select rocker switches 
0434" B87 5000 2035A STA SWSEL 
O437° BS 3909906 cO3BG6EA LDA SWBUS read switches 
043At 88 (FF 2C37A EQRA #SWMSK3 set bits to 1 means "pushed" 
043C" 2? ac Z2O3BA BEQ 3% branch if no switch pressed 
2039A 
20464 check for only one switch pressed 
Z2041A 
O43E" C6 98 2042A LDB #8 eight switches 
0440" £48 2043A LSLA shift switch ootnt to carry 
O441" 25 93 2044A BCS. 24 if carry = ls activated switch is found 
0443' 5A 2045A DECS count switches in byta 
0444" 20 FA 2046A BRA 1$ | loops there MUST be a switch 
20474 : 
C446" 26 2C ZO04BA BNE 2555 is there more than 1 switch pressed? 
0448° 1F 98 2049A TER BeA NO» transfer switch number to A 
ZO50A | | 
20514 Switch code (0 to 8) in Ae do filter 


SUPERVISOR 
SWITCHES 


O44A* 
044D* 
0450° 
0452° 
0455°* 
0458" 


O45A° 
045D° 
O45F° 
0462" 


0464" 
0467? 
O46A° 


946C* 
O46F° 
0471° 


O474" 


(SWITCHES.736) 


BY 
Bl 
26 
TF 
BY 
20 


Bl 
26 
7A 


25 


ras 
B77 


73 
20 


BT 
86 
BT 


39 
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0025* 
Oo1D* 
08 
0026° 
0024° 
LA 


0024* 
OD 
9026' 
10 


QO01D" 
0023' 
08 


0024" 
OB 
9026' 


2053A 
20544 
2055A 
20564 
2G57A 
2C05BA 
2059A 
2060A 
2061LA 
2062A 
2053A 
2064A 
2065A 
2066A 
2O057A 
Z2068A 
2069A 
20704 
2O7T1A 
20724 
ZOT3A 
ZOT4&A 
2075A 
2075A 
207TA 
Z2OTBA 
20798 
2030A 
20814 


2083+ 


3 


be, 
td 


44g 


$4, 
$e 


; ae LT) 
Wt se se 


ae tt 


SUPERVISR.736 


h 


Page $-3 


11-May-83 10:49:23 
STA SWREAD Save as read 
~ CMPA SWBYT3 check against LAST value 
BNE 44% branch tf changed 
CLR SWCNT same as LASTs reset count and PATTERN 
STA SWPTRWN 
BRA 2558 exit 
read ~= last» check for read = pattern 
CMPA SWPTRN is it a new pattern 
BNE 5h 
DEC SWCONT same patterne recuce debcunce count 
BNE 255% 


debounce completes set new value and flag 


STA 
COM 
BRA 


read “= 
STA 


LDA 
STA 


SWBYT3 


set rocker switch byte tc new value 
SWFELAG set SWITCH FLAG to eTRUE 
2554 


patterns switch is still bouncing 


SWPTRN set current pattern 
#8 initialize debcunce count 
SwCNT 


Switches checked and appropriate action takens exit 


RTS 


FILE 


TIMERS s <TIMERS e«SRCD 


SUPERVISOR 
TIMERS 


NO27" 
OQ3T7' 
0047? 
0048° 


04 75° 


0477° 
04799 
047C! 
O47E° 


0480° 
0482" 


0484' 
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(TIMERS eSRC) 


=O6927 
=0010 
=0010 
=0001 
=00 31 


34 71 


1A 30 


B& 0047° 


81 08 
25 04 


1C AF 
20 F3 


48 


SUPERVISR.e 736 


cO085A 
2089A 
ZO90A 
Z091A 
2092A 
2093 A 
2094A 
Z2095A 
2096A 
2097A 
209B8A 


Z2100A 
21014 
Z102A 
21034 
2104A 


21064 
2107A 
2108A 
21094 
21104 
Z111A 
2112A 
21134 
2Z2114A 
21154 
Z1Li6A 
2117A 
211BA 
2119A 
2Z120A 
212iA 


2122A+ 


21498 
Z150A 
21514 
21524 


2153A+ 


21808 
21814 
2182A 
21834 


TIMVEC 
TIMTRP 
NTIMR 

ZTIMRS 


ate 


STIMER 
34 


1S 
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SUBTTL TIMERS (TIMERS «SRC ) 

TIMERS -- SET: CLEAR, INTERRUPT 

RSECT  SUPRAM 

RMB MXTIMR*2 timers remaining durations here 

RMB MXTIMR#2 timers trac addresses here 

RMB 1 number of active timers 

RMB 1 number of expired timers found {this clock) 
RSECT SUPER 

INTERN STIMER set timer entry 

INTERN CTIMER clear a timer entry 

INTERN CLKII crocess a clock interrupt 

INTERN CLKINI initialize clock/timer module {(coldstart) 
STIMER -- SET A TIMER TRAP TO OCCUR 

calling sequence -- 

CALL STIMER | 

TRAP ADDRESS address to trac to after | 

ADDRESS OF COUNT#* number of ticks to wait (literal) 
(return here) | 
SE (NOTES count is NOT stored in Chis worde this is a pointere) 
PSHS CO Xs el save CALLer's interrupt mode and registers 
IDF <B> can’t have interupts here 

ORCC #eMSK turn 8 interrupts of f 

LDA NTIMR check count of timers now active 

CMPA HMXTIMR maximum already? 

BLOC 1$ branch tf ok | 

ION <B> wait for a timer available 

ANCCC HIENAMSK turn 8B interupts on 

BRA 3% 

ASLA | double the count 


SUPERVISOR 
TIMERS 


0485° 
0488°* 
N4EA* 
0480° 
0490° 
0493° 
D497" 


9499° 
O049D° 


O4A0° 
O4A2° 
O4A4! 
O4AT7! 
O4A9° 


O4AA* 


O4AC?* 
D4AE? 
0461]°* 


0483° 
0466° 
D46A° 
O4BC" 
D4BF° 
04C0' 
04C€ 2° 


O4C4° 
040S5° 
O4CA*t 
O4CD* 
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(TIMERS e*SRC) SUPERVISRe (36 


8E 0037'° 
EE 67 

LOAE C4 
LOAF 86 

8E OO27° 
LOAE DB 02 
26 04 


108& 0001 
LOAF 86 


33 44 

EF 67 

TC OO47* 
35 71 

39 


34 71 


LA 590 
Ro OO4T78* 
2f 1D 


BE OO3T' 
Ac FSB OF 
1OAC Si 

2¢t O58 

4h 

26 FS 

20 OC 


LOAE 88 EE 
26 O03 

7A 0048" 
BD O4D9" 


21844 
21854 
2186A 
2187A 
Z2188A 
2189A 
2190A 
Z191A 
2192A 
2193A 
2194A 


2195A 


Z1L96A 
2Z197A 
Z2198A 
Z2199A 
2200A 
22d01A 
2202A 
22034 
2204A 
2205A 
22064 
2207A 
2208A 
Z209A 
2210A 
2211A 
22128 


22i3Aart 


22403 
2241A 
22424 
22434 
2244A 
2245A 
22464 
2247h 
2243A 
Z2249A 
22508 
22514 
2252A 
2253A 
225448 
2255A 
2256A 
2257A 
225348 
22594 
2260A 
22614 
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LOX #TIMTRP 
LDU 79S trap address pointer to U 
LDY 0 U actual trap adress to Y 
STY AyX trap address to TIMTRP 
LDX RTIMVEC 
LDY C29U] get specified count 
BNE 2% must be non-zero 
LDY #1 was Zeros make it 1 
25 STY Aex store count 
LEAYU 49V advance return ocinter 
STU 79S 
INC NTIMR increment timer count 
PULS CC aX ee U restore calling interrupt mode and registers 
RTS effect return 
* CTIMER -— CLEAR TIMER IF SET 
ae calling sequence -- 
oS CALL CTIMER 
TRAP ADDRESS trap address of timer to clear 


(return) 


iy, a2, .y) 
Se ote ot 


ate 
yn 


CTIMER PSHS 


CC aX eV¥ eV save CALLer's interrupt mode and registers 
IOF <B> can’t have interrupts hera 
ORCC #eMSK turn 38 interructs off 
LDA NTIMR if no timers are sets routine ts done 
BEQ 255% 
e LOOK FOR THE SPECIFIED TRAP ADDRESS 
LOX #TIMTRP base of vector 
LDY [72S] specified trap address 
1% CMPY oXt+ is this the one? 
BEI 100% branch if yes 
CECA reduce and check ccunt of unchecked traps 
BNE 1% loop if not all active tracs tested 
BRA 255% if all have beens trap was not heres exit 
oe SPECIFIED TRAP WAS FOUND -- REMOVE IT 
1004 LDY TIMVEC-TIMTRP—-24X check for timer expired* 
BNE 995 | 
DEC ZTIMRS reduce count for interrupt processer 
99% JSR TSQUEZ squeeze out the timer 


* «(timer may be expired if CTIMER is called by a trap processor) 


at, 
“i 


SUPERVISOR 
TIMERS 


04D0* 
C4D2° 
04D4" 
04D6°* 
0408" 


04D9° 
O4DB° 
o40D* 
O4DF* 
O4E1° 
043" 
0455" 
0456" 
O4E8° 
O4EB" 


O4EC® 


O4EF* 
O4F 1° 


O4F3" 
O4F5° 
O4F8° 
O4FAY 
O4FB° 
O4FC* 
0500° 


(TIMERS sSRC) 


2262A . * 
2263A * 

EE 67 2264A 255% 

33 42 22654 

EF 67 2266A 

35 71 22674 

39 226BA 
2269A % 
2270A * 
227T1A & 
2272 * 
227T3A 
2274K 
227T5A 

31 10 2276A TSQUEZ 

20 08 227TA 

EE 81 2278A 996 

EF 1¢ 2279A 

Ee AL 2280A 

Er 23C Z2281A 

4h 22382A 98BR 

26 FS 2233A 

TA 0047" 2234A 

39 2Z285A 
2286A * 
2287A * 
2288A xs 
Z289A sh 2h 28 2K 2k ok 
2290A Soe ee 
2291A * 
2292A 
22934 * 
2294A 
2295A+ CLKTII 

1D 38004 2256B 
229TA * 
22938A * 
2299A * 
2300A 
23014 * 
2302A * 
2303A * 

34 O1 2304A 

32 7E 2305A 
2306A+ 

LA 46 23338 

B86 0047!' 23344 

2f 4&4 2335A 

4¢ 23364 

5 F 233748 

LOBE O025* 23384 

AE AS& 22394 15 
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TIMER IS REMOVED (OR WAS NOT THERE) 


CELKiI. == 
CCF 
TST T1iCeL 


process requested clock 


{decrement time 


(form count of expired but still 
(Cinclude timers which expire this 


PSHS CC 

LEAS. -295 

[QF <F> 

ORCC #eMSK 

LDA NTIMR 

BEG 255% 

ASLA 

CLRB 

LDY ETIMVEC-2 
LiX > Avy 


Page 10-2 


—-- RETURN 


LOU T9S update return pointer 
LEAU 29U 
STU T9958 
PULS CO aX eV eV restore calling program’s interrupt mode & regs 
RTS 
MDHYSICALLY™ REMOVE TIMER FROM VECTORS - 
(*X* points to TRAP following the cne to remove) 
(*A*® contains count of timers at/after the one to be deleted) 
LEAY TIMVEC—TIMTRP +X point "Y" to time correspording to "xX" 
BRA 98$ | 
LDU oX4++ get next trap address 
STU —4_X move it down 
LOU oY ++ move corresponding time. down 
STu —-49Y 
DECA reduce and check count of remainince trars 
BNE 9954 
DEC NTIMR reduce overall count of active tracs 
RTS 3 
eis ae ade ak ale ake af ake ae ade ak afc a ots ate fc ae afc ae a atk afk atk ake af ofe ake ake ah oe oe ae abe he ade oe ae ae abe afk ake oie ate of ae oe ae a af ah ae he ah of te he ake he ae oe he oe eae he ok ae ok ak 
ate ale fk ake afc ake afc ats abe afk ok le ae ote abe ate ak she ah fe ae ofc hk fe abs fe ake ate afe afk oe oi i alc abe oie ote oh ale aie afk ohe ale ok oe oR ok she oh sic ais she oie ois oe sik ik oie ak ae oy i ik ik oh oie ai ai ak a a 
ate oie aks hk ote she ate ae ote ac fe ak ake aoc ok afe of she abe she aks of ok ake ake se ak oh ok ok of oie ste sie age ofc os ays oe sy of ik af she ak se afk afk ake ays ahs I< ahs ys sik oe ok fe aes hk OK SIs SISK Ses EK Re oie Sie a 


PROCESS CLOCK INTERRUPTS HERE 


clear clock flag 
clears the clock flag 
traps 


counts on unexpired timers) 
active timers) 
time?) 

save entry value of ‘*F* 

reserve stack space 

"F* interrupts often set/clear trarcs 
turn F interrupts off 

check count of active tracs 

exit if there are no timers active 
double count to use as an index 

zero count of "just expired" timers 
get base of "time teft*® vector 
reduce count on timer pointed to 


SUPERVISOR 
TIMERS 


0592" 
0504" 
O506° 
O506° 
O50A° 
O508° 
O50" 


O50F* 


O512° 
0515* 


OSL." 
O51B°* 
O5ic* 
0520? 
0522" 
052 3° 


0525° 


O527' 
052A" 
O52D" 
O52F°* 
0531'° 
0534* 
536° 
0538° 


C534" 
O53C* 


O535° 
0540" 


0542*. 


0543' 


(TIMERS »SRC) 


a | 
30 
AF 
26 
5C 
806 
26 


F7 


TD 
an 
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05 
1F 
A6 
Ol 


02 
a | 


0048°* 


048° 
2¢ | 


1OSE COzT* 


BS 
AE 
of 
4A 
26 
29 


TA 
30 
Ee 
EF 
3D 
A& 
LF 
AD 


14 


32 


35 
39 


TF 


O047° 
Al 
05 


r9 
1? 


0048" 
A8 10 
Le 
z4 
04D9"% 
62 
PA 


&G 
D4 


62 
o1 


0047" 


2340A 
23414 
232424 
2343A 
2344A 
23454 
23464 
23478 
234BA 
2349A 
2350A 
23514 
23524 
2353A 
2354A 
2355A 
2356A 
2357A 
2358A 
2359A 
Z350A 
23614 
2362A 
2363A 
2364A 
23654 
23664 
2367A 
Z236B8A 
23609A 
2370A 
23714 
232A 


2373A+t 


240903 
2491A 
24O02A 
24C3A 
Z4Q04A 
2405A 
24C5A 
24C07A 
24084 
2409A 
24104 
2411A 
2412A 
Z413A 
2414A 
24158 
Z2416A 
24174 
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BEQ 153% MAY already be zero (nowever unlikely) 
LEAX —19X | 
STX AgvY | 
BNE 25 check for count recuced to zero 
15% INCB count timer as expired 
2% SUBA #2? reduce remaining count 
BNE 1% 
STB ZTIMRS store # of timers *just expired’ 
3% TST ZTIMRS check for expired timers 
BLE 25545 branch if none remain 
a FIND AN "EXPIRED*® TIMER 
LDY H#TIMVEC 
LDA NTIMR 
206 LDX 9 ¥++ check a "time remaininc’® word 
BE®@ 40$ cranch when expired timer fcund 
CDEC A have all been checked? 
BNE 205 | 
BRA — 255% yesr exit 
ae GOT A LIVE ONE 
40% DEC ZTIMRS reduce ‘remaining’ count of 'just expired’ 
LEAX TIMTRP-TIMVECT 9 Y SQUEZ requires list address of trap + 2 
LDU —Z29X eowein Xe get actual trap address from list 
STU 2S save it in the stack 
JSR TSQUEZ Squeeze out expired timer 
LDA 295 allow F interrupts during trap routine 
TER AeTC eeelf they were enabled when CLKII entered 
JSR {sS] execute the trap routine 
TOF <F> disallow F durinc further clock processing 
ORCC teMSK turn F interructs off 
BRA 3¢ loop to check for more 
2 ALL TRAPS ARE PROCESSED -- EXIT 
255% LEAS 295 release added stack space 
PULS CCT restore entry ‘Ft 
RTS | exit 
DES SES DES BEE BG OK Si The BY Shs Oe SK SS BK Bk SEE Ss TS Bye BK Be TS SK SEE SS Ts TE IE SEK Os SS Sik he aie ae ah she oie ais ak of ofc ais ik oie she oh se ake fe ale alk afk oie fe ais kc oh oi ak ae ays aie ois ols Se aks ahs ok sk ofc ais ate ots che ake fe ok ots 
Spe SyS Sk ye Bee Sk Baw SS Sy Sg age Sy mye Sye Bye Se AS. Bye Som See Sys ye, Bye Bye ope Soe SS A Ses See Se ae ie aie Se Se Se he Be ee She See he aie Sk Se i Be Se ok sie hk aie he Sh oh she ah sie she ae She Si aie Sie aie Se Se Se aie She oe Sie ake Se oe 
SH BH SE DS YE SK OK TK IC SS i HE Be OK oe BK Bhs Oye ok SES 3k Bhs oye ae abs ahs She Bie TES ois Bie sos ak ah oh oh oye ok she ok ti she ale alk ake ake she oh ah ae ate ale ae he ake oie ale ak ole she ok oh ste af ole aie she ahs ole ots ok ake aie ok ok aie ae aie ake 
> CLOCK/TIMER INITIALIZE (coldstart) 
** called by supervisor to set up clock hardware and softwware 


CLKINI CLR NTIMR clear count of active timers 
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TIMERS (TIMERS e520) SUPERVISR. 736 


0546" B86 8008 2418A — LBA VIAACR set up timer mode 
0549° 54 3F 24194 ANDA  £#$3F clear any mode previously set 
054B* BA 40 2420A DORA HVIATCI set for free-running mode 
954D" BY 8BDOB 2421A STA VIAACR 7 
0550" CC 7017 24224 LDD #VIATCN set up the base interval timer 
0553" FD 38004 24234 STD TileLa activates timer 

7 2424A4 CCF | clear clock flag 
0555" TD 3004 242586 TST TICelL clears the clock flag 
0559* 864 CO 24264 LOA #VIATC2 set bit to enable timer 1 interrupt 
N556'° BY B8OO0E | 24278 STA VIAIER 
QO55E* 39 3 242B8A RTS return to supervisor 

2429A % 


* whe whe abe alo aly ale ale a8e als whe ake ale aly ale ale abe Ue ale abe whe alle le aly sf whe ate alle ate ats ate aly ale alle ale ade whe ade ale ale 80 ale whe abe ale aly ale ale ale ale ol ate ale wile ahe ade ale ate alo ate ale ally ate abe ale ade aly abs So ate ale aly ule Se ale ale ale ale wr ate 

~~ “~~ ~~ “—~ 7 “~ 3 or — /“~ ad Bd ae “~~ baat od “ “ee ce bal “~ ‘a? ym ba — Sat tad ~~ hd ed a» td tad “— Cad teal % fal ad a ps *? Se bad ~4* ~~ "= “~~ ~~ > Fg oe Ty age at bad “~~ wee = at Yoo “? bat ia ge ae ad og bad bd “ge 7 ~~ Ce ed oe ed -~ Ce ed ~~ oy eg ye aye ~~ “ “gn “ge ~~ oe oy “ge oP oy Or my oye 
; , if a l A Sa ale ade «He ale whe whe abe nhs abe ale alerts abe ale ale ate ale -ale «! fe Pe 3! ste pw whe ate ate We ale ale a8e ate ate ate ale ate als ate afte 4 ate s% ate whe we wde aby ule abe bed aly ale = ale whe ate aly ate ate alo ale ale ate we «ho. ate ed als whe ale aSe ale ale alle ale ate ale ute whe alo 
? d, : A 2 A ate we ate ato od: w8e ake who aly ato ads Fo alle whe ty ate wae ~Ys ate sie ake ste whe els ake whe te ale ale a: -ale els ale whe ule ade By we ally abo ate le ate ate se we ale ate st whe ats ale alle ofc we whe ats ale Ke alle ate = ate whe ate allo abe ale ate bx ste aks aby ale ake ale ads whe whe 


2434+ FILE MISCELLANECUS ¢<SUPERMISC.736> 


SUPERVISOR 


CRO8B09/11 version 104e34el4 


2508A 


| 11-May-83 10:49:23 Page ll 
MISCELLANEOUS C(SUPERMISC. 735) SUPERVISR 2736 
2436A SUBTTL MISCELLANECUS (SUPERMISC. 736) 
P>440A 
24414 MER SIE DYE AYE SNE BES SYS THs TE SES Ee She Se ES MS Se Sis She Sis Sic Sys Shs Sk Sie Sik Sik Sis SEK Sik TS SAS TIS TS SER SIS Sik SAS OHS Sis oie Dik aie Sis abe Sic Sik Oi Sis Sh oie TIS SES Sik SHS Be TEs SES SK Se oi Ns Sis Oi ik ai ote is oie sik ote of is oi OI ts aie oe ois sis ok 
24424 
2443A | 
2444A % miscellaneous routines for system (p/o SUPERVISOR assembly) 
2445A % 
2446AN 
2447A DES BES SYS SHS TK BYE DS SES SE SIS Shs SES TAs SY BIS TIS BE SHC SI AIK SK BES IK SEE BOs TEE SOC SES BES Oe Os OEE OE SS SI OIE OK BK Sie Oi ays oie aie SK as Sis ok ok Ok sk sis ok ik ois 2 Sik ik of oi 3ic sts afk oie sik kk ok ok oh of ok ok sic sk 2k ahs ofc aie ais oi ok 
24404 
=0049 2449A RSECT SUPRAM 
| 24504 % 
9949" =0001 2451A LEBIMG RMB 1 image of current LED selects (1=0n) 
NO4A48* =9001 2452A ALRMG RMS 1 image Of Bete alarm status 
24534 % . 
2455A % 
2456A INTERN ERROR Fatal error lockup routine 
24578 INTERN ALARM alarm on/off routine 
2458A INTERN CLEDSET LED on/off routine 
2459A 
=O55F 24614 RSECT SUPER 
2462A 
24634 % LEDSET turn on/off/ltoad indicated LED 
24644 % | 
24654 % —(LDIA LED number 
24664 (L038 on/voff/value code 
2467A *% CALL LEDSET to set/clear/load specified LED 
2468A * | 
O5S5F* 24 11 246594 LEDSET PSHS XsCC routine uses X & disables interrupts 
0561" #S8E O58C! 2470A LOX #BITVEC base of LED number:bit correlation table 
0564'° A6 86 Z24714A LOA Nak get specified bit 
247 2A+ IOF <I> | Suppress interrupts 
0566" 1A 19 24998 CRCC #eMSK turn I interrupts off 
0568" 5) 2500A TST3 test on/off switch 
O569° 2f 95 2501A BEG 1$ 
3 2502A % 
2503A * turn it on 
2504A * | . 3 | 
D568" BA 0O049° 2505A CRA LEDIMG or in existing bitt(s)-. if any 
O56E" 20 O04 2506A BRA 2% | 
2507A 3% 
* turn it off 


SUPERVISOR 
MISCELLANECDUS 
0570* 43 
0571" B4 
0574* BY 
O577* 35 
0579°* BA 
N57C* Ba 
0571="* B7 
o581° 39 
0582° 4F 
05835 BY 
0586" 23 
05388 a7 
9586? 39 
O58C* 02 
0580" 10 
OOBRE® 20 
NS8F* 4Q 
9590" Ol 
Cc591° 04 
9592" 09 
593° ore 
j9594° 34 
0596" 1A 
5598°* 34 
O59A* of 
O59pD? BA 
UV5A0' BB 
O5A2" Bf 
OSA5°* 35 
QO5A7* 39 
O5A8" 1A 
C5SAA*® C5 
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9049° 


9049° 
11 
DO4A* 
a 
4000 


0049° 
FF 
4000 


01 


10 

80 
004A" 
0049° 
FF 
4000 
o1 


456 
FF 


SUPERVISRe. 736 


259094 
2510A 
2511A 
2512A 
25134 
25144 
25150 
25164 
2517A 
2518A 
25194 
25204 
2521A 
2522A 
2523A 
2524A 
2525A 
25264 
25274 
25284 
25294 
25304 
2531A 
2532A 
25334 
2534A 
2535 A 
25358 
2537A 
2538A 
2539A 
2540A 
25414 
25424 
2543A 


2544At 


257132 
25724 
25734 
2574A 
25758 
25 76A 
257TTA 
25764 
25798 
25804 
25814 
25824 
2583A 


2584 A+ 


26118 
2612A 


ate 
bad bed 


15% 


mate 
“- 


wh 
74 


LEDINI 


at. 
+. 


ate 
“« 


a 
“e 


& es 
tw 4¢ 


ALARM 


we 
em 


ERROR 


BITVEC 
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COMA. 

ANDA LEDIMG 

STA LEDIMG 

PULS Kecc 

ORA ALRMG 

EQRA KLEOMSK!IFALRMSK 
STA LEDBUS 

RTS 


initialize LED image 


CLRA 
STA 
EDRA 
STA 
RTS 


FCS 
FC 
FCB 
FCB 
FOB 
FCB 
FCB 
FCB 


ALARM 


(LD)A 
CALL 


PSHS 
IDF 
CRCC 
ANDA 
STA 
GRA 
EDRA 
STA 
PULS 
RTS 


Page ll-l 


form mask 
clear the specified bit 


store new image 
restore X and interrupts 
merge with alarm code 
put data in form to drive bus 
and set register 
return to caller 


clear image (no LEDs on) 


LEDIMG 

#LETMSKI+ALRMSK 

LEDBUS LEDS and alarm off 

LEDCHK "CHECK" is LED 9 

LEDI 

LED? 

LED3 

LEDRCOY NREADY" i5 LED 4 

LEDHLD "HOLD" is LED 5 

0 (reserved) 

0 7? 

—— ON or CFF 

TRUEe or FALSEs 

ALARM 

cc save interrupt mode 

<I> 

#eMSK turn JY interrupts off 
#BEEPMK mask to beener bit 

ALRMG store result in image byte 
LEDIMG combine with LEDs for output 
#LEBDMSKI+ALRMSK put in bus data form 
LEDSBUS 

CC restore interrupt mode 


FATAL ERROR -- set "CHECK" Lights turn on alarm and hang 


TOr 
ORCC 
LDB 


<B> 
HeMSK 
#TRUE® 


interrupts OFF 
turn 8 interrupts off 
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MISCELLANEDUS (SUPERMISC e736) SUPERVISRe 736 | : 

O5AC!# BD -D5S5F* Z2613A JSR LEDSET turn on requested LED 
OSAF?* 4F 2614A CLRA 
0530° BD O55F°* 2615A JSR LEDSET turn on "CHECK" Light 
0533' C6 FF 2616A LOB #H#TRUE » turn on alarm 
C565" 6D 9594° 2517A JSR ALARM 
0588" 1& O5386* Z2616A JMP * hang until power off 

2619A * 

2621 END 
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MISCELLANEDUS (SUPERMISC. 736) SUPERVISR e736 

ABQCOD 0001 ABOFLG OOO1*TIN ABOREQ OOOO0* IN ALARM Q594°IN ALRMG OO4A* 
ALRMSK 0089 BEEPMK 0080 BEGIN OOED* BITVEC O58C* BUSY QO002*IN 
CALL M2.cro CCF Macro CLKII O4EC* IN CLK INI 0543°IN CLKTRP 0253" 
CMDIS QOZA5* CMENDB JI2C7° CMENBL O203° © CMRES 030B° CMSOP O2E4* 
CMTBL O29D" CSTART 00007 IN CTIMER O4AA°IN DCXIT J11LA* DEVIRQ 0010 EX 
DEVRST 0009 EX DEVSTA 06008 EX DEVTOF 0003° DEVTR DN004°* DIS INH oc10* 
ECBIT 0010 EMAPFLG O006°IN ERROR O5A8* IN EXSTAT DOOT7* IN FALSE 0000 
FILE Macro FIRQFL 6090 FLTFLG 0095 EX FLTREGQ D006 EX FLTTIM OCOT EX 
FRQMSK 0040 HLOFLG QOOF EX HLDREQ OOOF* IN HOLD Q00E EX HOLDST O22C° 
HOLDSV 0005 HOLDTO O22E° HTOCON 023C" HTCFLG 0004 EX IDLABO QO1BF*® 
IDLE OOF A* IDLELI O217° IDLETC O212° IDLETO 0219° IDLE] O1D0D* 
INVAL 0205° INVALDO 0211" TOF Macro TON Macro IRBIT 0008 
TRQINT O23E* LDADR 0012°* LDPTR 0014° LEDBUS 4000 LEDCHK 0002 
LEDHLD 0004 LEDIMG 0049° LEDINI 0582° LEDMSK 007F LEDRDY C001 
LEDSET O5S5F* IN L&D1 0010 LED2 0020 LED3 0040 LNGMSK OOF8 
LPS NOOC EX LPSCOD 0004 LSTATS O0O11° LSTCOM OO16*° IN LSTORD O017* IN 
MEMBAS 2000 MEMCHK 0058 °* MEMERR OO9A® MEMLEN 0800 MODLMK 0007 
MXTIMR 0008 NOABRT 0200° NTIMR 0047° CCBIT 0020 ORDER 0016' 
PBUFR OO50"IN PEAB LO50°IN PEACT 1010°IN PIDENT O00B* IN PKEYIN OCO2°IN 
PMODE OO10" IN PMPP 9018 "IN PMSA ODO12Z" IN PMSL JO14°IN PCINTR 0018°* 
PORDER OGO8*IN PPARS OOL7*IN PRGINI Nocc* PRICCC 90903 PRINTM Q00D EX 
PRIPOR 0003 EX PRIRST QOONA EX PSENSE OG03°IN PSPOR OC0O02 EX PSTATS OCOOrIN 
PSWSTA OOO" IN PTRTRP O24F * PTSTM OO4A*tIN RDYLED . 9004 READFL O3E6° IN 
RSTCOM 01160" RSTFLG OOOBTIN | RSTRE® OOOA*® SDABIT 0094 SFTINT 02214 
SOPCOM O1L5SE* SOPLPS 9186° SOPPRT O1A0°* SOPREQ Ococ* SOPSSA C178° 
SSA GCOO0B EX SSACOD 9002 SSAPOR O0O1 EX STACK O0000° STATUS 2800 
STCKLN 9100 STIMER O475°IN STKSET 0C43° STK TOP 0100° SWBUS 32000 
SWBYTO QOOLA* SWBYT1 0013" SWBYT2 001C* SHWBYT3 Q01D* IN SWEYT4 OO1E* 
SWSYT5 OO1F® SW3BYT6 0020 SWBRYTT 0021' SWBYT8 O022° SWCNT 0026° 
SDP 3800 SWFLAG) QO2Z3 "IN SWMSKO 00096 SWMSK1 QOFO SWMSK2 O000 
SWMSK23 JOFF SWMSK4 OOFF SWPTRN 0024° SWREAC 9025° SWSEL 5000 
SWSELIL OOO] SWSEL2 9002 SWSEL3 0004 SWSEL4 D008 SWSET O3AD* 
SWTTRP 0411° SWVEC OOLATIN SYINITT COSF* TABBFB. 0008 TS88aFM C008 
TBDISB D002 TEDISM 0002 TBINT 0281" TBREG £099 T3RIAG OcOv* 
TBRSTS 0000 TBRSTM 0001 TBSMSK 00CO0 TICK 0006 TICKM 2710 
TIMTRP NoO3T* TIMVEC 0027* TRUE. PEEP TSQUEZ 0409°* T1CeH B005 
T1ICeL RO04 TiLeH 8097 TLLsLA 8004 TIL eLB BO06 T2C eH BOO9 
T2CeL 3008 T2teL 8008 VECTOR 0000° VIA BO00 VIAACR 8008 
VIADDA 8003 VIADDB BOO2 VIADMK BFFF VIATER BOOE VIATIFR &00D 
VIAIRA E091 VIAIRB BOOO VIACAN SOCF VIAGRA BOO] VIAORB B000 
VIAPCR ROOC VIAPCI 0082 VIAPC2 0GO2 VIAPC3 DOCA VIATCN TO17 
VIATCI 9040 VIATC2 D0CO VIATCS3 0046 ZTIMRS 00438* © TOXAR Macro 
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